DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DD DD BB G NN NN NN SSSSSS EEEEEEEE TT 
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DD DD 6B BB GG GG NN NN SS EE TT cece 
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; 1 1 0 MODULE DBGNSET (IDENT = ‘v04-000') = 

5 ¢ 8 1 BEGIN 

; 005 1 

; 4 004 1! 

$ 5 45 1 Vee eeeReA ARERR AAARARAAARAAAAAARATAAAAAAAAA AAA AAA AAAAAAAAARAAAAARAAAARAA AES 
; :* r 
3 : $009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 8 0008 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 10 ssh ; is ALL RIGHTS RESERVED. * 
Ps ; + 
a) 011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; i 654 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF CH LICENSE AND WITH THE * 
3 FY 013 1! USI F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; | (14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
oS 0015 1 !* R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1 b51$ ; ” TRANSFERRED. * 
3 'e e 
; 18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $9 Bose : CORPORATION. * 
3 'e e 
: $$ 0092 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 2 00 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; «626 oose 1 !* * 
3 € 0025 1 !«* ® 
3 $8 oo $ 1 Ve Reee RARER RAAAAAAAAAAAAEAAAAAEAAAAA AAA AAA AAA AAE 
3 0 1} 

3 5% 0028 1! 

5 $3 0029 1 ! FACILITY: DEBUG 

3 0 0030 1! 

3 Hy 303) : : ABSTRACT: 

. 0033 1! This module contains the ATN parse network and the command execution network 
; 0034 1! for the SET verb. These are currently the largest and most complicated 
ae 0035 1! networks. oreett es the parse network constructs a command execution tree 
3 0036 1! which consists of at least a verb node, and possibly one or more noun nodes 
3 7 0037 1! The execution network accepts this tree as input and decodes the arguments 
3 36 sit : of the various nodes to perform the specified command. 

; re Bped ' ENVIRONMENT: VAX/VMS 

; $$ ape \ : AUTHOR: David Plummer - CREATION DATE: 3/28/80 

| (446 Bote 1 ! VERSION: v02.2-001 

3 665 045 1! 

; 8646 Bose 1 ! MODIFIED BY: 

; 67 0047 1! é 

: 48 048 1! Richard Title A alae 

; 49 049 1! Sid Maxwell 07-May- ‘ 

3 30 bay ; Brad Becker 13-Sep-8 

: 52 O36 1! REVISI HISTORY: 

se 055 1! 3.0 1=JUL-81 RT Added new nouns FLOAT, D_FLOAT, etc. 

; «6546 054 1! in the SET TYPE command. 

:. oe 055 1! 3.1 13-SEP-81 RT Jeplenented new SET commands: 

; 28 326 7! SET STEP SOURCE 

we. 3 S. SET SOURCE dir-List 
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;. 13-0et- 
.0 -Feb- 


1 
1 
PP ena 88 


09-Aug-82 
15-Apr- 


-Apr- 
$g-4er 
18-Jul- 
17-Aug- 
4.0 13-Sep-8 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 


BAB 


LIBRARY ‘LIB$:DBGGEN.L32°; 


FORWARD ROUTINE 
DBGSNPARSE_SET 
DBGSNEXECUTE_SET, 
DBGSNSET LOG; 
DBGSNSETOP_LOG, 
DUMMY: NOVALUE; 


F 14 

16-Sep-1984 01:58:19 AX-11 Bliss-32 V4.0-74 
16-Sep- 382 et et DEBUG. SRC JDBGNSET.B32; 
SET MAX_SOURCE_FILE 


as part of source 


n 
Eine display 
Implemented SET MARGINS 


Implemented SET SEARCH 
Implemented SET DEVELOPER 
Implemented SET DEFINE 
Added hooks for new: 
SET BREAK 
SET TRACE 
SET WATCH 
Added sap lonentes ton level 3 code for 
SET BREAK, SET TRACE, SET WATCH 
Added SET SCOPE/MODULE 
Added SET MODULE/ALLOCATE 
Added SET TYPE PACKED:n and SET TYPE/OVERRIDE PACKED:n 
Added SET TYPE DATE _TIME and SET TYPE/OVERRIDE DATE_TIME 
Added SET MODE G/NOG_FLOAT. 
Added SET KEY. 


! SET verb parse network 

' SET verb execution network 

' Sets up an output log 

! Opens and connects an euteyt log 
! Dummy routine to foil BLISS 

: compiler optimization 


Page 


2 


(1) 


EXTERNAL ROUTINE 

DBGSEVENT _SYNTAX 

DBGSEVENT SEMANTICS, 
BGSNGET_CENGTH 
DBGSNGET-DIR_LIST, 


DBGSNGET_ TRANS RADI 
DBGSSCR_EXECU 
422th x U 


S 
T 
T 
LA 
E 
I 
E: ‘ 


MOD, 


ee ee 


INTEGER, 


DBGSPRINT: NOVALUE, 
DBGSNEWLINE: NOVALUE, 
DBGSSET_SEARCH LVL: NOVALUE, 
DBGSSET-STP_LVC: NOVALUE, 
DBGS$SET-DEFINE LVL: NOVALUE, 
DBGSSET LV 
DBGSNPARSE SET TASK: NOVALUE, 
DBGSNEXECUTE SET_TASK: NOVALUE, 
DBG$RST_SETSCOPE: NOVALUE, 
DBGSNPARSE SCOPE LIST, 
DBGSNSHOW MARGINS: NOVALUE, 
DBGSSRC_SET_MAX_FILES: NOVALUE, 
DBGSNPATHDESC_TO_CS: NOVALUE, 
DBGSRST_SETMOD, 

DBGSGET~MEMORY, 

DBGSREL-MEMORY: NOVALUE, 
DBGS$GET~ TEMPMEM 

DBGSNSAUE FILESP, 


X, ! 
PLAY_CMD:NOVALUE, ! 
TERM_ CMD: NOVALUE, 
WIND- CMD: NOVALUE, ! 

Y_CAD: NOVALUE, 
RM_CMD: NOVALUE, 
WO LID : NOVALUE, 
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p-19 DEBUG. SRC JDBGNSET .832; 


' Event syntax (parser) 

' Event semantics 

' Returns bit Length for a primary 

' Parses a directory List for the 
SET SOU 


RCE dir-list command 


Translate radix 
Execute the SET DISPLAY command 
' Execute the SET TERMINAL command 
Execute the SET WINDOW comman 
' Parse the SET DISPLAY command 
' Parse the SET TERMINAL command 
Parse the SET WINDOW command 
r clear screen mod 


Set orc mode 

Finds a Module RST pointer 
Implements the SET SOURCE command 
Saves an inline numeric Literal 
Saves a numeric Literal in the current radix 
Saves a counted string from input 
Obtains type of primary 

Format print output 

Output a Line of print output. 

Sets search data structure pointer 
Sets step data structure pointer 
Sets define data structure pointer 
Sets mode structure level 

Parses SET TASK command 

Handles SET TASK command 

Sets user specified scopes 

Parses a scope List 

Shows the margins 

Performs SET MAX command 

Translates a pathname desc to a c.s. 
Sets a module 

Allocates a permanent memory block 
Releases a memory block 

Allocates and Lists dynamic storage 
Eats and stores a filespec string 
Routine to match keywords 


SNMATCH, 
DBGSNPARSE ADDRESS, 
DBGSNNEXT_QORD, 
DBGSNOUT_INFO., 
DBGSNMAKE _ARG_VECT, 
DBGSNSYNTAX_ERROR, 
DBGSSET 


Interface routine to Address Expression Interpreter 
Isolates next word of input for syntax errors 
Outputs an informational message 
Constructs a message argument vector 
penetructs a@ syntax error message 

on 
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DE KEY 
GS$GB-RADIX: VECTORC3, BYTE), Override and default radix 
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dB 
DBGS$GL_GBLTYP 


Override type 


LANG, Vers routine to change language 
67 DBGSREAD_KEY_ INFO Reads in the state-name string for SET KEY 
68 SMGSSET_DEFAOLT_SfATE, Sets the default keypad state 
+4 SMGSSET_KEYPAD_FODE; Sets terminal to numeric/applicat. mode 
71 aie . 
4 DBGSGB_KEYPAD_INPUT: BYTE, TRUE if keypad input is enabled 
7 DBGSGL_-KEY_TABLE_ID, Used in SET KEY 
R DBGS$GL_KEYBOARD_TD Used in SET MO 


DBGS$GW~GBLLNGTH: WORD, 
DBGS$GL~DFLTTYP, 


Override length 
Default type 


H 14 
eoSep-i9ee feites2) — EdeeuG. SAcSbBGNSET 03271 


PTR: 
REF EVENTSSTEPPING_DESCRIPTOR, 
DBGSSRC_LEFT_MARGIN, 


DBGSGL_ORIG_C D_PTR ! 

DBG$GL—~UPCASE_COMMAND_PfR: VECTORE2); 
! Pointers to start and end 

: of current command string 


Left margin for source display 
pleas margin for source display 
Pointer to original command string 


GNSET 1 
yore 000 14-Sep-1 DEBUG. SRC JDBGNSET.83 
DBGSGW_DFLTLENG: WORD, ! Default Length 
ae: py yg E BYTE ! Current Language 
DBGSGB-SEARCH PTR: REF VECTORE BYTE, ! Search structure 
BGSGB_MOD_PTR: REF VECTOR C,BYTE) Mode structure 
DBGSGB-DEFINE_PTR: REF VECTOR C,BYfE),! Define structure 
DBGSRUAFRAME: “BLOCK (,BYTEJ, ' Current runframe 
DBGSGB_RESIGNAL: BYTE, ! If TRUE, then resignal exeptions 
DBGSGL_LOG_BUF, ! Old debugger pointer to counted string filespec 
DBGSGL_ CONTEXT: Bi tTvecteR ! Old debugger context switches 
BGSGB_DEF OUT: VECTOR BYTE), ! Old a oa output control vector 
DBGSGL_LOGFAB: BLOCK BYTE). ' FAB for log file 
DBGSGL_LOGRAB: BLOCK [,BYTEJ, ' RAB for Log file 
DBGSGL"LOGNAM: REF $NAM DECL i NAM block for fil 
DBG$GB_LOGE SR: REF VECTOR -vTE). i Resultant LOG filespec buffer 
DBGSGB_LOGFSE: REF VECTOR L,BYTEJ, ! Expanded LOG filespec buffer 
DBGSGL_SCREEN_LOG, ! Flag set to activate screen loggin 
BG$GB_STP Pointer to current stepping descriptor 
1 
' 


These are composite verb Literals used in parsing and execution. 


Note = you may cause yourself problems if you at to renumber these, 
because the EVENTSK_SET_XXX definitions in DBGLIB.REQ must correspond 
to the numbers here. 


! Also defined as EVENTSK_SET_BREAK 


REAK_DO 
ACERT ION BREAK ! Also defined as EVENTSK_SET_BREAK_EXC 


cae 


"healed i=? + > reed 


ESess 
acl 


OVERRIDE 


ms< < 


OVERRIDE 


> VIMO 


! Also defined as EVENTSK_SET_TRACE 
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! Also defined as EVENTSK_SET_WATCH 
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“MAX_SOURCE _F ILES= 


14 
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#5 
3% 


3 1 Et the = 9. 

; 205 1 SET“SEARCH = 21. 

3 8 1 SET_DEVELOPER = ¢° 

: 1 SET_DEF INE = 25, 

; $8 ? 1 SET_DISPLAY = 26, 

; 4) 1 SET_TERMINAL = 25, 

: 210 § 1 SET_WINDOW = g. 

; 211 45 1 SET_KEY = 29, 

; \3 4 1 SET“ TASK = 0. 

3 HF 5 } SET_MAX IMUM = 30; 

; i “3 ; H These are the legal mode literals for the SET MODE command. 

3 i3 rk 1 LITERAL 

: 218 50 1 MODE _LOWEST = 1, 

; 219 51 1 MODE _BINARY e 5, 

5 $9 0 26 1 MODE _OCTAL = ¢° 

: 221 53 1 MODE-DECIMAL = 3, 

; $$ 54 1 E_HEX = 4, 

3 7 MODE_SYMBLS = 5, 

: 4 0 2$ 1 MODE_NOSYMBLS = 6, 

3 5 B32 1 MODE _DEF AULT S Ts 

3 $ 0358 1 MODE_SCREEN = 8, 

; 0359 1 MODE -NOSCREEN =9 

; 228 360 1 MODE ~KEYPAD = 16, 

: 58 O32 1 RODETGLOAT. > 12. 

H 31 b363 1 MODE_NOG_ FLOAT = 18° 

: 238 b3ee } MODE_HIGREST = 13; 

; 0366 1 GLOBAL 

; L_DEVEL H ! Special mode ts for developers 
$36 O36? 1 DBGSGL_DEVELOPER : $s ial mode bi for d L 

; $38 tre: 1 BITVECTORC32) INITIAL(O); ! 

i 53 0370 1 MACRO 

: 239 71 1 

3 $3 0372 : : OUTPUT_RMS_ERROR reports RMS errors caused by SCREATE, SOPEN, and SCONNECT 

: tg . Bere ‘ vat ye aman (BLOCK_TYPE) = 

3 266 m 0376 1 L 

: 245 i] 6 1 MSG_DESC : REF dbg$stg_desc, 

: $09 m 0879 STV: 

3 248 m 0380 1 : 

: 249 ial Ao msg_desc = dbg$get_tempmem (2); 

3; en m 03 ; 1 

3; 251 ™ 1 build_error_desc (msg_desc); 

3 26 ¢ ' IF block_type EQL 1 

> 256 ” 1 BEGIN 

: 255 " 1 sts = .dbg$gl_logfab pfabst sts 3 

; 2$ i.) 8 1 stv = .dbg$gl_logfab [fab$l_stvJ; 

; 25 ial 9 1 END 

3 28 6 1 ELSE 

: 25 m 0391 1 BEG! 

: 260 m 0392 1 sts = .dbg$gl_lograb Crab$l_sts); 
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! Release storage for the aborted log file 


Owo 


dbg$rel_memory (.temp_nam); 
dbg$Srel_memory (.temp_fsr); 
dbg$Srel_memory (.temp_fse); 


RRRRELSESE 


pst ther NO 


db Sgl_lognan = .old_nam_ptr; 
am_ptr = 0; 


61 ial 304 stv = .dbg$gl_lograb Crab$l_stvJ; 
BRE nt SEER. Se 
64 i, 1 -message_vect = dbg$nmake_arg_vect (shr$_openout+dbg_fac_code, 
65 : 3 : . ° . P wisg. desc. nits. »Stv); 
ef : $3 : RETURN sts$k_severe; 
i 3} : END %, 
} 08 : ! Build_error_desc creates a descriptor for RMS error reporting 
7 fal 3 BUILD_ERROR_DESC (MSG_DESC) = 
74 M 1 IF .dbgS$gl_log_buf NEQ 0 
m 0407 1 THEN 
m 0408 1 BEGIN 
M0409 1 msg_desc Cdsc$w_length] = -dogsel logfab Cfab$b_fns); 
. bet? : msg_desc Cdsc$a_pointer] = .dbg$gl_logfab Cfab$T_fnad; 
M \¢ 1 ELSE 
m 0413 1 
M0414 1 msg_desc Cdsc$w_length] = -dbosgl logfab Cfab$b_dnsJ; 
M0415 1 msg_desc Cdsc$a_pointer] = .dbg$gl_logfab Lfab$T_dnaj; 
bei$ : END %, 
tt : ! Restore_nam restores an RMS NAM block 
Be » : RESTORE_NAM = 
8 ¢ : BEGIN 
04 : ' LOCAL 
TYPE_B; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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5 old_nam_p 
dbg$gl_Togfab [fab$l_nam] = .dbg$gl_lognam; 
dbg$gl_logfab Cfab$i_fna] = .fna; 

bs dbg$gl_logfab [fab$b_fns] = .fns; 

40 dbg$gl_logfab [fab$v_nam) = 1; 

41 dbg$gl_logfab [fab$v_cif] = 1; 

rs | dbg$gl_logfab Cfab$v_mxv] = 0; 

rt} err = dbg$nsetup_log (type_b); 

4 IF NOT .err 

r THEN output_rms_error (.type_b); 

044 dbg$gb_def_out Cout_log] = .log_temp; 
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GLOBAL ROUTINE DBGSNPARSE_SET (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


'4e¢ 


i FUNCTIONAL DESCRIPTION: 


This routine comprises the ATN parse network for the SET verb. The network 

recognizes various keywords and contructs appropriate noun nodes which it 

Links to the verb node. Many composite verbs are recognized in this network 

os well. The value of these composite verbs are placed in the verb node (verb composite) 


MEWN “ODO BNOUS WN 


SNA AAA AAAAASUIMNUINUIUIUIVT 
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jeld. 
FORMAL PARAMETERS: 
INPUT_vESC = The present command Line input descriptor 
VERB_NODE _ The first node in the command execution tree. 
Value field has already been filled in by 
4 DBGSNPARSE_CMD. 
MESSAGE_VECT - The address of a longword to contain the address 


of a message argument vector 
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3 1 

3 1 

3 1 

g 1 

3 1 

3 1 

3 1 

3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

; 1 

; 1 

; 1 

; 1 

3 1 

3 1 

; 0 1 

3 1 1 

; ¢ 73 «1 

$ 7 1 IMPLICIT INPUTS: 

; 4 75 «1 

3 5 7 1 NONE 

3 6 77 «1 

3 i bee8 : IMPLICIT OUTPUTS: 

3 3 Bee0 ! The command execution tree corresponding to the input command is constructed. 
: 1 rtf : ROUTINE VALUE: 

3 $ Beee : An unsigned integer longword completion code 

3 5 Bees 1 COMPLETION CODES: 

3 6 487 1 

3 i pees : STSS$K_SEVERE (4) - Unsuccessful parse 

3 9 3630 ' STSS$K_SUCCESS (1) - Successful parse 

3 1 3 1 ! SIDE EFFECTS: 

3 oe 93 1 

: 94 «1 NONE 

3 ¢ 95 ' 

oj 

: 98 BEGIN 

3 499 

3 3 : Define strings used at this level. 

g 5 § BIND 

3 5 DBGSCS_BREAK = UPLIT BYTE (ZASCIC ‘BREAK') 

3 5 DBGSCS_DEF INE = UPLIT BYTE (ZASCIC "DEF INE'S 

; 505 DBGSCS"DEVELOPER = UPLIT BYTE (ZASCIC ‘DEVELOPER'), 
; 5 DBGSCS_DISPLAY = UPLIT BYTE (ZASCIC ‘DISPLAY ). 
} 50 DBGS$CS_ EXCEPTION = UPLIT BYTE (ZASCIC ‘EXCEPTION'), 
3 0508 DBG$CS~- LANGUAGE = UPLIT BYTE (ZASCIC “LANGUAGE'), 
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_SET_BREAK; 
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DESC, 
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T G 
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T R 
T x 
T D 
T D 
T T 
T D 
T 0 
T A 
T U 
T E 
T $ 
T B 
T A 
T Pe 
T T 
T N 
T ) 
T ) 
T ) 
T ) 
T A 
! Pointer to command Verb Node 


! Pointer to current Noun Node 


.NOUN_NODE; 


if 
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VERB_COMPOSITE] = EVENTSK 


.INPUT_DESC, DBGSCS_BREAK, 1): 
DBGSB_ 
“SYNTAX 


VERB_NODE f 
RETURN DBGSEVENT 


gnize keyword and transfer control to subnetwork if appropriate. 
BEGIN 


VERB_NODE: REF DBGSVERB_NODE; 
SELECTONE TRUE OF 


LOCAL 
NOUN_NODE: REF DBGSNOUN_NODE; 


!' Parse the SET BREAK command. 


CDBGSNMATCH ( 


NOUN_NODE = DBGSGET_TEMPMEM (DBG$K_NOUN_NODE_SIZE); 
SET 


!' Construct the noun node. 
Link the noun node to the verb node. 
VERB_NODE CDBGSL_VERB_OBJECT_PTR] = 


' Reco 


MAP 
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; : 5 i END; 

Ps j 
>; 4 6 

3; 4 €3 Cdbg$nmatch (.input_desc, dbg$cs_define, 1)] : ! Set Define 

; 439 oH BEGIN | 
3 441 78 ! Define the keywords that are legal after SET DEFINE 

: 44 74 IND 

3; 444 0575 dbg$cs_address = UPLIT BYTE (7, ‘ADDRESS'), 

> 445 Bere dbg$cs_command = UPLIT BYTE (7, ‘ COMMAND") 

3 rr | 57 dbgscs_procedures UPLIT BYTE (9, ‘PROCEDURE’), 

; 44 278 dbg$cs_string = UPLIT BYTE (8. *STRING'), 

3 rrr beep dbg$cs_value = UPLIT BYTE (5, ‘VALUE'); 

; 450 0581 verb_node Cdbg$b_verb_composite] = set_define; 

; $28 0888 ! Pick up one keyword. 

; 45 0584 ! see Two of the five are commented out because they are 

3: 454 0585 ! #@* not yet supported. 

; 455 0586 ‘ 

; rt ea 44 SELECTONE TRUE OF 

: 458 0589 

3 459 0590 Cdbg$nmatch (. inpug desc, Goptce_oddress. 1)]: 

; re B23! noun_node Cdbg$T_noun_value]™= define_address; 

: 46 $398 3 Cdbg$nmatch C. Sopus desc, dbpScs_connend. 1)]: 

3 ret Beae noun_node Cdbg$T_noun_valueJ]™= def ine_command; 

3 465 9298 ! Cdbg$nmatch (.input_desc, dbg$cs_procedure, 1)]: 

3 re £434 } noun_node Cdbg$l_noun_value] = define_procedure; 

3 468 0599 : ! Cdbg$nmatch (.input_desc, dbg$cs_string, 1)]: 

3 +33 ses H ! noun_node Cdbg$l_noun_value] = define_string; 

: 471 960¢ Cdbg$nmatch (.input desc, dbgScs_vatue, 1)3: 

3 rt seit noun_node Cdbg$l_noun_value] = define_value; 

3 474 0605 COTHERWISE): 

3; 475 0606 4 N : 

; 476 0607 4 IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 

3 477 0608 4 THEN 

3 $78 44 : gg Ressage_vect = dbg$nmake_arg_vect (dbg$_needmore) 

; 480 0611 4 sMessage_vect = 
; 481 i 4 dbg$nsyntax_error ( 

: 48 13 4 ab $nnext_word (.input_desc)); | 
; 48 614 4 RETURN stsSk_severe; | 
3: 484 615 END; 

3; 485 O16 

; 488 1 : | 
3; 489 620 Cdbg$nmatch (.input_desc, dbg$cs_developer, 9)] : ! Set Developer 
; 490 621 BEGIN 

3 (491 622 LOCAL 
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-Sep-1984 1 DEBUG. SRC JDBGNSET.B32 
Link; 
verb_node Cdbg$b_verb_composite] = set_developer; 
Link-= verb_nodefdb $l ‘verb object ptri; 
unt dbg$rimatch(.input_desc, dbgScs_cr, 1) 
BEGIN 
WHILE true DO 
BEGIN 
cen dbg$nsave_integer(.input_desc, noun_node[dbg$l_noun_value]) 
RETURN sts$k_severe; 
IF Roun neds) Cet) Mam velues LSS 9 OR 
(.noun_nodeldbg$l_noun_value] GTR 31) 
BEGIN 
message _vect = dbg$nmake_arg_vect(dbg$_bitrange); 
RETURN sts$k_severe; 
END; 
Link = noun_nodeCdbg$l_noun_Link]; 
ca dbg$nmatch(.input_desc, dbg$cs_comma, 1) 
BEGIN 
eo” dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
ete t = dbg$ t (dbg$ t d(.input_desc)) 
message _vect = nsyntex_error nnext_word(.input_desc)); 
RETURN sts$k. severe; — . - ~ 
END 
LSE 
EXITLOOP; 
END; 
noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 
.link = .noun_node; 
: ! End of WHILE Loop. 
END ! End of SET DEVELOPER 0,1... 
SE 
BEGIN 


emessage_vect = dbg$nmake_arg_vect(dbg$_needmore) ; 
A ee sts$k_severe; 


link = 0; 
END; 


Parse the SET DISPLAY command. 
CDBGSNMATCH(.INPUT_DESC, DBGSCS_DISPLAY, 3)): 


15 
a 16-Sep-1984 94:38:19 AX-11 Oi geez V4.0-74 
14-Sep-1984 12:17:21 DEBUG. SRC JDBGNSET .B32; 


; 549 680 BEGIN 

; $50 681 VERB_NODECDBGSB_VERB_ COMPOSITE] = SET_DISPLAY; 

3 Del 6 ¢ DBGSSCR_PARSE_DISPLAY_CMD(.INPUT_DESC; TRUE, .VERB_NODE); 
3 26 6 END; 

3 92 684 

> 554 on? 

; 22? pore Parse the SET EXCEPTION BREAK command. 

; 288 0688 COBGSNMATCH (.INPUT_DESC, DBGSCS_EXCEPTION, 1)]: 

$ 228 0689 BEGIN 

g Sor 0690 

; 200 24 ! We are looking for SET EXCEPTION BREAK 

: 56 069 IF NOT dbg$nmatch (.input_desc, dbg$cs_break, 1) 

: 38g 0694 THEN. _ — 

> 564 0695 4 BEGIN 

; 565 0696 4 emessage_vect = 

; 566 0697 5 ( IF dbgSnmatch (.input_desc, dbg$cs_cr, 1) 

3; Ser 0698 5 THEN 

; 568 0699 5 dbg$nmake_arg_vect (dbg$_needmore) 

: 569 0700 5 SE 

; 570 0701 4 Sopeoyaten peeee (dbg$nnext_word (.input_desc))); 
; Sr 0702 4 RETURN sts$k_severe; 

: are 070 ; END; 

; of 0704 ; 

3; 574 0705 3 ! Set the verb composite 

3; oro 0706 3 

; 576 0707 3 verb_node Cdbg$b_verb_composite] = set_exception_break; 
3 Sir 0708 3 

: 578 0709 3 : 

; 579 0710 !' Reset the noun and adverb pointers. 

; 580 0711 ! 

; 581 gris verb_node Cdbg$l_verb_object_ptr] = 0; 

$ 286 0713 3 verb_node Cdbg$l_verb_adverb_ptr] = 0; 

; 58 0714 2 END; 

> 584 0715 2 

> 585 0716 2 ! Parse SET KEY 

; 586 0717 2 ! 

s Ser 0718 2 

; 588 0719 Cdbg$nmatch (.input_desc, dbg$cs_key, 1)]: 

3; 589 0720 BEGIN 

; 590 0721 

3 3M Ors¢ P 

; 236 07 input_desc : REF BLOCK C,BYTE); 

; 0724 

; 594 0725 3 D 

; 595 0726 dbg$cs_state = UPLIT BYTE (5, 'STATE'), 
>; 596 0727 dbg$cs_nostate = UPLIT BYTE (7, ‘NOSTATE'), 
3; ver 0728 dbg$cs_nolog = UPLIT BYTE (5, ‘NOLOG"); 
; 598 37 9 

; 599 730 LOCAL 

; 600 0731 temp_key_desc : REF dbg$stg_desc, 

; 601 07 ¢ status; 

3 one 7 

: $04 : $ IF NOT .dbg$gb_k d_i t 

; -dbg$gb_keypad_inpu 

; 605 0736 THEN 
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3 
S 


SIGNAL (dbg$_nokeydef); 
verb_node [dbg$b_verb_composite] = set_key; 


! Initialize the noun node to point to a descriptor of the 
current state. 


temp_key_desc = dbgSget _tenpmem(2):; 
temp_key_desc CdscSw_length) = 0; 

temp_key_desc [dsc$b_dtype] = dsc$k_dtype_t; 

temp_key_desc Ldsc$b_class] = gecdh..cloes._¢; 

temp_key_desc [dsc$a_pointerJ= 0; 

smg$set_default_state (dbg$gi_key_table_id, 0, .temp_key_desc); 
! Let this field indicate whether to output a log of the SET KEY command | 
verb_node [dbg$l_verb_adverb_ptr] = 1; 
noun_node Cdbg$l_noun_value] = .temp_key_desc; 


WHILE (NOT dbg$nmatch (.input_desc gogics cr, 1)) AND 
(,input_desc Cdsc$w_length] GTR 0) D6 


WAWNARIPINMINIPUNINPINIPYDS 2 2 SS PO OO Ss 
WN O OONAVLS WN" OOONAUES WN oO 


SELECTONE TRUE OF 
SET 


SAR 


Edbepragtcht. input sess. dbg$cs_nolog, 3)] : 
yore nate Cdbg$l_verb_adverb_ptr] = 0; 
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Cdbg$nmatch(.input_desc, dbg$cs_nostate, 3)] : 
BEGIN 


! In this case the noun node field that points to 
the state name is reset anyway, as above. 


smg$set default state (dbgSol _key table_id, 0, .temp_key_desc); 


noun node Cdbg$T_noun_value]~= .femp_kéy_desc; 


CdbgSnaatch(. input desc. dbg$cs_log, 1)] : 
yore see Cdbg$l_verb_adverb_ptr] = 1; 
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Cdbssometch(. input desc. dbg$cs_state, 1)] : 
Check for = 
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if NOT dbg$nmatch(.input_desc, dbg$cs_equal, 1) 


IF dbgSnmatch (.input_desc, dbg$cs_slash,1) 
THEN 
4 
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Fag gr eennetent, Input Seek, dbg$cs_cr, 1) 
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gq BPeOoen nett = dbg$nmake_arg_vect (dbg$_needmore) 
. pueveogs sect = dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 
A sg stsdk_severe; 


temp_key_desc pdsc$e_ ointer] = g: 

temp_key_desc [dsc$w_length] = 0; 

status = dbg$read_key_info (.input_desc, 
-temp_Key_desc, 
-message_vect); 

IF NOT .status 


RETURN .status; 
ND; 


COTHERWISE] : 
fe ge RRRHNS , PEE SORE dbg$cs_cr, 1) 
-message_vect = dbg$nmake_arg_vect (dbg$_needmore) 


-message_vect = dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 
Noga stsdk_severe; 


TES 


LSE 
BEGIN 
emessage_vect = dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 
rue sts$k_severe; 


END; ! End of SET KEY parse 


Cdbg$nmatch (.input_desc, dbg$cs_language, 2)]: 
ts he put. g guag 


BIND 
DBGS$CS_MACRO = UPLIT BYTECZASCIC *MACRO"), 
DBGSCS_FORTRAN = UPLIT BYTE(ZASCIC ‘FORTRAN'), 
DBGSCS_BLISS = UPLIT BYTECZASCIC ‘BLISS'), 
DBGS$CS_ COBOL = UPLIT BYTECZASCIC ‘COBOL'), 
DBGSCS_BASIC = UPLIT BYTE(ZASCIC ‘BASIC"), 
DBGSCS_PLI = UPLIT BYTECZASCIC ‘PLI'), 
DBGSCS_PASCAL = UPLIT BYTE(ZASCIC ‘PASCAL"), 
DBGSCS_C = UPLIT BYTECZASCIC °C"), 
DBGSCS_RPG = UPLIT BYTECZASCIC ‘RPG'), 
DBGSCS_ADA = UPLIT BYTE(ZASCIC ‘ADA'), 
DBGSCS_UNKNOWN = UPLIT BYTE(ZASCIC ‘UNKNOWN"); 


VERB_NODE CDBGSB_VERB_COMPOSITE] = SET_LANGUAGE; 
SELECTONE TRUE OF 
SET 


COBGSNMATCH (.INPUT_DESC, DBGSCS_MACRO, 2)] : 


. 


i i i i ip, a Pn n,n, a i 
NOUEWN OO OONOUE WN O 


2 00 09 CD 09 CD 0D 0D 00 CD 
PWM 
WN OOCONOUS WN 


3 


AIANAAIAIAIPIPIRI WII BBB BEE EF FAWN WW AANA NAAN WIAA NAINA 


co 
o 
w 


a 


o 


SES bobo bbbbnbnbinhniniinik 
noo 
fun —0O0@ 


2 09 Cd CD Co CO 
ANNO 


S$ep-1984 01:58:19 AX-11 Bliss-32 V4.0-74 
16- $e0-1944 03:38:38 DEBUG. SRC Seastt 63001 
NOUN_NODE CDBGSL _NOUN_ VALUE] = DBGSK MACRO; 


CDBGSNMATCH ( (. JNPUT DESC, passes. FORTRAN, 2)] : 
NOUN_NODE CDBG$C_NOUN_VALUEJ = DBGSK_ FORTRAN; 


CDBGSNMATCH ( - INPUT DESC, DBGSCS$_BLISS, 2)] : 
NOUN_NODE COBGS$C_NOUN_VALUEJ~= DBG$K_BLISS; 


CDBGSNMATCH ( (. INPUT DESC, DBG$C$_COBOL, 2)] : 
NOUN_NODE COBG$C_NOUN_VALUE]~= DBG$K_COBOL; 


CDBGSNMATCH ( - {NUT DESC, pacscs. BASIC, 2)] : 
NOUN_NODE CDBG$C_NOUN_VALUEJ~= DBG$K_BASIC; 


CDBGSNMATCH -INPUT_DESC, DBGSCS_PLI, 2)] : 
(OUN_NODE CDBGSC_NOUN_VALUE]~= DBGSK_PLI; 


CDBGSNMATCH ( + JNUT DESC, DBGSCS_PASCAL, 2)] : 
NOUN_NODE (COBGSC _NOUN VALUE J" = DBGSK PASCAL; 


CDBGSNMATCH(. JNPUT DESC, DBGSCS_C, 1)]: 
NOUN_NODECDBGSC_NOUN_VALUE]~= DBGSK_C; 


CDBGSNMATCH(.INPUT_DESC, DBGSCS_RPG, 2)]: 
NOUN_NODECDBG$C_NOUN_VALUE] = DBGS$K_RPG; 


CIF NOT -DBGSGL phEVEL PERC) THEN FALSE ELSE 
DBGSNMATCH( {we ESC, DBGSCS_ADA, 
NOUN_NODE DBeSc. OhOUN VALUE] “= DaGSK “ADA; 


CDBGSNMATCH(.  |NPUT DESC, DBGSCS_UNKNOWN, 3)]: 
NOUN_NODECDBGSC_NOUN_VALUE]~= DBGS$K_ UNKNOWN; 


COTHERWISE) : 

i DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 

-MESSAGE_VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) 
LSE 

-MESSAGE_VECT 

BBGSNSYNTAX ERROR (DBGSNNEXT_WORD(. INPUT_DESC)); 

RETURN STSSK_SEVERE; 
END; 


TES; 


stata C7 ham (. INPUT_DESC, DBGS$CS_LOG, 2)) : 


BEG! 
VERB "NODE sheave: VERB composite 3 = SET_LOG; 
IF NOT DBG ) 


SAVE-FILESP (¢ mut ES 
NODE bacsi _NOUN_VALUEJ, 
NALSSAGE “vECT) 


we ee ee Da yaaa te 
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777 RETURN STSS$K_SEVERE; 
a END; 
f : saa 75 ge (. INPUT_DESC, DBGSCS_MARGINS, 3)] : 
7 ; 5 LOCAL 
7 4 tEFT MARGIN, 
f ; 5 RIGHT _MARGIN; 
res VERB_NODECDBG$SB_VERB_COMPOSITE] = SET_MARGINS; 
7 
7 if] ' Legal _ forms of the SET MARGINS command are: 
790 4 i 7.°SET MARGINS L:r 
791 ¢ i ¢: SET MARGINS r 
79 i 3. SET MARGINS L: 
a? : 4. SET MARGINS :r 
a] +4 § if cream (. INPUT_DESC, DBGSCS_COLON, 1) 
797 0928 BEGIN 
nt 
oot 34 1 : This must be case four, above 
o06 0938 if NOT bprensAve DECIMAL_INTEGER(.1 WPUT DESC. 
80 B2e ‘ T_MARGIN, .MESSAGE_VECT) 
B398 RETURN STS$K_SEVERE; 
806 09 LEFT_MARGIN = .DBGSSRC_LEFT_MARGIN; 
807 0938 END 
808 0939 
09 ELSE 


BEGIN 
IF NOT DBGSNSAVE _DECIMAL gt tat (. INPUT_DESC, 
_—— HT_MARGIN, .MESSAGE_VECT) 


NRETURN STSSK_SEVERE; 


Look for colon 
if DBGSNMATCH (. INPUT_DESC, DBGS$CS_COLON, 1) 
BEGIN 


ee ss 


NO UE WN 0 OOO US wn oO 


This must be case 1 or case 3 above 

LEFT_MARGIN = .RIGHT_MARGIN; 

if OGSMAATCY f (. INPUT_DESC, DBGSCS_CR, 1) 
RIGHT_MARGIN = .DBGSSRC_RIGHT_MARGIN 

ELSE ! case 1 


IF NOT DBGSNSAVE_DECIMAL_INTEGER (.INPUT_DESC, 
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RIGHT_MARGIN, .MESSAGE VECT) 
RETURN STSSK_SEVERE; 
END; 


} Check that Left margin is less than right margin 
if LEFT. MARGIN GEQ .RIGHT_MARGIN 


BEGIN 
DBGSNSHOW MARGINS (); 
SIGNAL (DBGS_ INVMAR); 


Fill in the noun node 


NOUN_NODECDBGS$L_NOUN_VALUE] = .LEFT 
NOUN_NODECDBGS$L-NOUN_VALUE2] = RIGAT 


END; 
a (. INPUT_DESC, DBGSCS_MAX_SOURCE_FILES, 3)] : 
LOCAL 
VERB “jose LbBcéa VERB_COMPOSITE) = SET_MAX_SOURCE_FILES; 
IF NOT ye AVE _DECTMAL_ INT 
"INP T_DESC, MAX “FILES. «MESSAGE _VECT) 


N 
RETURN STSS$K_SEVERE; 
At i NODE CDBGS$L_ROUN_ VALUE) = »MAX_FILES; 


MARGIN; 
_MARGIN; 


ama 7 a (. INPUT_DESC, DBGSCS_MODE, 1)] : 


GI 
LOCAL 
INK; 

BIND 
DBGS$CS_BINARY = UPLIT BYTE(ZASCIC 'BINARY') 
DBGSCS"DECIMAL = UPLIT BYTE(ZASCIC ‘DECIMAL'S, 
DBGS$CS~ DEFAULT = UPLIT BYTE(ZASCIC ‘DEFAULT'). 
DBG$CS~G_FLOAT = UPLIT BYTE(ZASCIC 'G_FLOAT'). 


Page 17 
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; 891 1 3 DBGSCS_HEXADECIMAL = UPLIT BYTE(RASCIC *HEXADECIMAL'), 
; % 1 DBGSCS-KEYPAD = UPLIT BYTE CEASCIC "KEYPAD ') 
: 89 1024 DBGSCS-NOG_FLOAT = UPLIT BYTE(SASCIC ’NOG FLOAT"), 
> 894 1025 DBGSCS_NOKEYPAD = UPLIT BYTE(ZASCIC 'NOKEYPAD'), 
: 895 1 § DBGSCS_NOSCREEN = UPLIT BYTE(ZASCIC *NOSCREEN') ; 
; 36 1 DBGSCS-NOSYMBOLS = UPLIT BYTE(RASCIC 'NOSYMBOLIC'), 
; 89 1 8 DBGSCS-OCTAL = UPLIT BYTE(ZASCIC "OCTAL') 
; 38 1 DBGS$CS- SCREEN = UPLIT BYTE(ZASCIC 'SCREEN'S, 
; 10 9 DBGSCS~SYMBOLS = UPLIT BYTE(ZASCIC "SYMBOLIC'); 
Py 1 
: 901 10 VERB_NODE COBG$B_VERB_COMPOSITE] = SET_MODE; 
; 308 1 ' Accept the mode switches 
> 904 1035 i 
: 905 10 6 WHILE TRUE Df 
; 906 1 4 BEGIN 
; 90 1936 4 
; 908 1039 4 SELECTONE TRUE OF 
: 910 1041 4 
: 911 1048 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_BINARY, 1)] : 
; gg 1043 4 NOUN_NODE CDBGSC_NOUN_VALUEJ~= MODE BINARY; 
: 914 1065 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_DEFAULT, 3)]: 
; 915 1046 4 NOUN_NODE CDBGSC_NOUN_VALUE]~= MODE_DEFAULT; 
; 319 1048 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_DECIMAL, 1)] : 
; 918 1049 4 NOUN_NODE CDBG$C_NOUN_VALUEJ~= MODE_DECIMAL; 
: 920 1051 4 CDBGSNMATCH (. INPUT DESC, DBGSCS_HEXADECIMAL, 1)] : 
3 g 1 1936 ‘ NOUN_NODE COBGSC_NOUN_VALUEJ~= MODE_HEX; 
: 9 5 1054 4 CDBGSNMATCH(.INPUT_DESC, DBGSCS_KEYPAD, 1)]: 
; 3 4 1055 4 NOUN_NODE CDBGSL_NOUN_VALUE] = MODE_KEYPAD; 
: 926 1089 & CDBGSNMATCH(.INPUT_DESC, DBGSCS_NOKEYPAD, 3)]: 
3 927 1058 4 NOUN_NODECDBG$C_NOUN_VALUEJ~= MODE_NOKEYPAD; 
; $3 1060 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_NOSCREEN, 5)) : 
: 930 1061 4 NOUN_NODE COBG$C_NOUN_VALUEJ~= MODE_NOSCREEN; 
; 932 1968 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_NOSYMBOLS, 1)) : 
: 93 1064 4 NOUN_NODE COBG$C_NOUN_VALUEJ~= MODE_NOSYMBLS; 
: 935 1066 4 CDBGSNMATCH (. INPUT DESC, DBGSCS_OCTAL, 1)] : 
; 93 1067 4 NOUN_NODE CDBGS$C_NOUN_VALUEJ = MODE_OCTAL; 
: 938 1069 4 CDBGSNMATCH (. INPUT DESC, DBGSCS_SCREEN, 3)] : 
; 959 1070 4 NOUN_NODE CDBGSC_NOUN_VALUEJ~= MODE. SCREEN; 
: 941 1972 4 CDBGSNMATCH (. INPUT DESC, DBGSCS$_SYMBOLS, 1)) : 
; 949 1073 é NOUN_N@DE COBGSC_NOUN_VALUEJ~= MODE_SYMBLS; 
: 944 1075 4 CDBGSNMATCH (. INPUT DESC, DBGSCS$_G_FLOAT, 1)] : 
; 945 2% 4 NOUN_NODE COBG$C_NOUN_VALUE)~="MODE_G_FLOAT; 
; 309 1078 4 CDBGSNMATCH (.INPUT_DESC, DBGSCS_NOG_FLOAT, 3)] : 
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| 
| 
| 
; 948 1 4 4 NOUN_NODE CDBG$L_NOUN_VALUE] = MODE_NOG_FLOAT; | 
; 330 i 4 COTHERWISE] : | 
; 338 ! $f IF DBGSNMATCH(. INPUT DESC, DBGSCS_CR, 1) | 
: 954 1085 .MESSAGE_VECT = DBGSNMAKE_ARG_VECT(DBG$_NEEDMORE) 
; 322 1087 ELSE 
: 929 1088 .MESSAGE_VECT = DBGSNSYNTAX_ERROR( 
3 328 34 DBGSNNERT_WORD(.INPUT_DESC)); 
: 960 1091 RETURN STSSK_SEVERE; | 
: 38) 1998 = | 
: 308 1094 4 TES; | 
. ee 
: 208 1097 2 Check for a comma to see if more input should follow | 
; 968 1099 4 iF NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_COMMA, 1) | 
; 970 1101 4 EXITLOOP; | 
: 33 1108 | 
: a7 1198 ? } More input should follow. Create another noun node and Link | 
: 975 1106 4 Link = NOUN_NODE [DBGSL NOUN. LINK}; 
: 976 1107 4 NOUN_NODE = DBGSGET _TEMPMEM TDBG$K.NOUN_NODE_SIZE); 
3 ore 1198 ? «LINK = NOUNS NODE | 
; 979 1110 END; ! End of Loop 
: Bt 1142 | 
; a5 1118 Place a 0 in the Last noun Link field | 
: 984 1115 NOUN_NODE CDBGSL_NOUN_LINK) = 0; 
3 985 1116 
s 7 abt END; | 
: 988 1119 CDBGSNMATCH (.INPUT_DESC, DBGSCS_MODULE, 4)] : 
$ oe 1199 BEGIN | 
: 991 11 ; LOCAL 
: 39 i 4 ALLOEATE “FLAG 
: 99% 1125 AIT_FCAG; ~ | 
: 995 1 6 | 
; $9 1" 3 Initialize the flags for SET MODULE/ALL and SET MODULE/NOWAIT 
: 999 1130 ALL_FLAG = FALSE 
: 1000 1131 ALLOCATE FLAG = FALSE: 
: 1001 11 é NOWAIT_FCAG = FALSE; 
We 
> 1004 1135 ' Check for SET MODULE/ALL or SET MODULE/NOWAIT. 


K 15 
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! Use the ADVERB_POINTER field to indicate whether /NOWAIT 
' was specified and/or whether /ALLOCATE was specified. 
! The codes are 
0 - neither /NOWAIT or /ALLOCATE 
1 = /NOWAIT, not /ALLOCATE 
§ - not /NOWAIT, /ALLOCATE 
- both were specified 


ERB_NODE CDBGSL_VERB_ADVERB_PTR] = .NOWAIT_FLAG + 
2* ALLOCATE_FLAG; 


' 
i 
i 
i 
i 
V 
: If /ALL was specified, indicate this in the verb_composite node. | 
iF .ALL_FLAG | 


VERB_NODE CDBGS$B_VERB_COMPOSITE) = SET_MOJULE_ALL | 


SSSSSSGSSSERFERREEEL 


3 


: 1005 11 

; 1006 Ht 3 WHILE DBGSNMATCH (. INPUT_DESC, DBGSCS_SLASH, 1) 00 

:4 1139 4 | 
> 1140 4 DBGSCS_ALL = UPLIT BYTE G, "ALL") 

> 101 1141 4 DBGSCS-ALi.OCATE = UPLIT BYTE (B. ‘ALLOCATE"), 

; 1 1148 4 DBGSCS-NOWAIT = UPLIT BYTE (6, "NOWAIT'); 

; 1018 1168 4 IF DBGSNMATCH (.INPUT_DESC, DBGSCS_ALLOCATE, 4) 
; 1015 1146 4 ALLOCATE_FLAG = TRUE | 
: 1016 1147 4 

: 101 1148 4 ELSE IF DBGSNMATCH (.INPUT_DESC, DBGSCS_ALL, 1) 

: 1919 1130 4 ALL_FLAG = TRUE : 
: 1021 1138 3 ELSE IF (IF NOT .DBGS$GL_DEVELOPERLO] THEN FALSE ELSE 
; 19 g 1193 ; . DBGSNMATCH (.INPUT_DESC, DBGS$CS_NOWAIT, 1)) | 
: 10 4 1135 4 NOWAIT_FLAG = TRUE | 
: 1026 1189 4 | 
> 1027 1138 5 BEGIN 

; 19 3 1159 3 IF DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) | 
; 1030 1182 3 .MESSAGE_VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) 

: 103 1163 5 LSE 
: 1983 1164 5 .MESSAGE_VECT = DBGSNSYNTAX_ERROR( 

; 10 1165 5 DBGSNNEX? _WORD(.INPUT_DESC)); | 
: 10 ie 3 RETURN STSS$K_SEVERE; | 
> 10 1168 4 END; 

3: 10 1169 4 | 
3; 10 1170 END; 
: 1 1171 

: 1 1178 

:1 117 

71 117% 

3 1 1175 

3 1 1176 

21 117 

21 1178 

3} 117 

3 7 1180 

3 1 1181 

. 4 1188 

3 11 

3; 7 11 

‘ HE 

:1 1189 

> 11 8 

3:1 11 

3 3 11 

:4 1191 

21 1192 


S 


! Only pick up a module if /ALL was not specified. 
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: 


ND 
DBGSCS_COMMA = UPLIT BYTE (1, dbg$k_comma); 


LOCAL 
LINK; ! Temporary pointer 


066 13? H We have a module name List to parse. 
138 ELSE 
5 : BEGIN 
1 BI 


} Accept strings and commas 
WHILE TRUE DO 
BEGIN 


QEFRANLS SSIS 
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! For language C, we do some fancy footwork to 
! make sure we preserve the origina) casing of 
s 


081 ag amenities (since casing significant 

! in C). 
i 
IF .dbg$gb_language EQL dbg$k_c 
THEN 939 guag 9 

BEGIN , 

MAP 

input_desc: REF dbg$stg_desc; 
LOCAL 


Length 
new_pointer: REF VECTOR C,BYTE), 

! Pointer to orig. command input 
pointer, ! Pointer into input atring 
stg_desc: dbg$stg_desc, ! String descriptor 
temp_ptr; 


ointer = .input pees seeete pointer); 

ength = .input_ descldsc$w_CengthJ; 

IF (.pointer LSS -Gbgsol upcase command ptr{0}) OR 
(.pointer GTR .dbg$gl_upcase_command_ptr(1J) 


$DBG_ERROR( "DBGNSHOW\DBGSNPARSE_SET 10°); 


' We unfortunately have to allocate memory 
' and copy strings in order to stuff a 
trailing carriage return at the end. 


new_pointer = Syetont, tenpnentt.tongehe>)/8); 

temp_ptr = (.pointer = .dbg$gl_upcase_command_ptr([0]) + 
° gsal orig_command_ ptr; 

CHSMOVE (. Lengt » -temp_ptr, .new_pointer); 

new_pointer(.length-1)] = dbg$k_car_return; 
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Fill in the string descriptor. 
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stg_desc(dsc$b_class] = dsc$k_class_s; 
stg_descldsc$b_dtype) = dsc$k dtype_t; 


stg_desc(dsc$w_length] = .length; 


oe 


| 
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74 P 
paGnset 83274 er § 


stg_desc(dsc$a_pointer] = .new_pointer; 

sto-desctgscge-pols = 0; 9 

Pick up the symbol name. 

iF NOT dbg$nsave_string( stg desc 
NOUR_NODE CDBGS$L_NOUN_VALUEJ, 
message_vect) 

THEN 

RETURN sts$k_severe; 


Update the input descriptor. 


WR SO OONOULS WO 


PEAR Q®EMAANAASIII 


input .descLdsc$w. Length’ = = snout dose tdectu_ lengths - 


64 ‘ ength - .Stg_desc(dsc$w_lengt 

65 input_descCdsc$a_pointer] = ; iMput _descldsc$a_pointer] + 
$8 (,length = .stg_descldsc$w_lengthJ); 

68 


| 
| 
ALL other Languages besides C ... | 
ELSE 
IF NOT DBGSNSAVE_STRING(. INPUT DESC. 
om NOUN_NODE CDBGS$L_NOUN_VALUE], .MESSAGE_VECT) 
RETURN STSSK_SEVERE; | 
| 
| 


Check for a comma 
iF NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_COMMA, 1) 
EXITLOOP; 


: Create a new noun node to hold the next string 


LINK = NOUN_NODE CDBG$L_NOUN_LINK); 
NOUN_NODE = DBGSGET_TEMPRER TDBGSK’NOUN_NODE_SIZE); 


Mororonororfrorfnory 
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COBGSNMATCH (.INPUT_DESC, DBGSCS_OUTPUT, 1)] : 
BEGIN 


ee ee ee me ee ee me ee ee et ee ee ee kt ee eed ed ed ed od dd = dd 
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»LINR = .NOU 

END; ! End of loop 
65 : Place a zero in the last Link field 
$9 NOUN_NODE [DBG$L_NOUN_LINK] = 0; 
o8 | aaa DBG$B~VERB~ COMPOSITE) = SET_MODULE; 
%3 : 
4 END; 
eS 
74 
75 
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v04=000 14-Sep-1984 93:38:38 DEBUG. SRCTDBGNSET 83274 eg 
3 CDBGSNMATCH (. INPUT DESC, DBGSCS_NOVERIFY, 3)] : 
4 NOUN_NODE CDBGSC_NOUN_VALUEJ~= NOUN_LITERAL_NOVERIFY; 


COTHERWISE) : 
IF DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 
«MESSAGE _VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) 


ELSE 
»MESSAGE_VECT = DBGSNSYNTAX_ERROR (DBGSNNEXT WORD 


(. INPUT_DESC)); 
RETURN STSSK_SEVERE; 
END; 
TES; 


Look for a comma and exit the loop if none found 
if NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_COMMA, 1) 
EXITLOOP; 


Since we expect more input, create another noun node 


LINK = NOUN_NODE CDBG$L_NOUN_LINK]; 
NOUN _NODE = DBGSGET_TEMPMEM TDBG$K_NOUN_NODE_SIZE); 
-LINR = .NOUN_NODE; 


PAPA AMNMIMNMNIVIVNINVIVI ES EES ELLE EE 
WN OOONOVUE WN (OV ONAUES WN —-O0O@ 


a a a ee ee eee 
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ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee) 
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9 
4 9 END; ! End of loop 
65 9 
66 9 
#4 > Put a zero in the Last Link field of the noun node chain 
69 9 NOUN_NODE CDBG$L_NOUN_LINK] = 0; 
a 8 END; 
se 0 CDBGSNMATCH (.INPUT_DESC, DBGSCS_RADIX, 1)] : 
74 0 BEGIN 
75 0 BIND 
%6 0 DBGSCS_BINARY = UPLIT BYTE(ZASCIC ‘BINARY') 
7 408 DBG$CS_DECIMAL = UPLIT BYTE(ZASCIC ‘DECIMAL'S, 
78 409 DBG$CS_DEFAULT = UPLIT BYTE(ZASCIC ‘DEFAULT'), 
79 410 DBGSCS_HEXADEC IMAL = UPLIT BYTE(ZASCIC ‘HEXADECIMAL'), 
80 411 DBGS$CS_ INPUT = UPLIT BYTE(ZASCIC ‘INPUT'), 
81 tig BGSCS_OCTAL = UPLIT BYTE(ZASCIC ‘OCTAL') 
a¢ 4) DBGSCS_OUTPUT = UPLIT BYTECZASCIC OUTPUT"), 
a7 ai3 DBG$CS_OVERRIDE = UPLIT BYTE(ZASCIC ‘OVERRIDE"); 
85 $16 ! Check for the /OVERRIDE switch. Then fill in the verb 
36 41 : compos ite field accordingly. Also check for /INPUT or 
rH 23 /OUTPUT. 
89 420 VERB_NODECDBG$B_VERB_COMPOSITE) = SET_RADIX; 
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Bt 
DEBUG. SRC JDEGNSET .83 


: 1290 1421 WHILE DBGSNMATCH (.INPUT_DESC, DBGSCS_SLASH, 1) DO 

: 1291 14 : SELECTONE TRUE OF 

: 1 3 14 SET 

: 129 1404 

: 1294 1425 CDBGSNMATCH (.INPUT_DESC, DBGSCS_ INPUT. 1)]: 

; 95 14 $ NOUN_NODECDBG$L“NOUN. VALUE2]~= 1; 

: 1297 1428 CDBGSNMATCH (,INPUT_DESC, DBGSCS_OUSPUT, 2)): 
i] 98 14 3 NOUN_NODECDBGS$L"NOUN. VALUE2]~= 2; 

: 1300 1431 CDBGSNMATCH (.INPUT_DESC, DBGS$CS_OVERRIDE 2): 
; 130 14 2 VERB_NODE COBG$6_VERB_COMPOSITE) = SET_RADIX_OVERRIDE; 
1 08 1434 COTHERWISEJ: 

3 1304 1435 4 BEGIN 

5 of 1436 4 LOCAL 

: 1306 1437 4 CS: REF VECTORC,BYTE), 

; 1307 1438 4 STG_DESC: DBG$STG_DESC; 

: 1308 1439 4 IF DBGSAMATCH (.INPUT_DESC, DBGS$CS_CR, 1) 
: 1309 1440 4 H 

: 1310 1441 4 SIGNAL (DBG$_NEEDMORE) 

> 1311 1449 4 S 

: 1312 144 3 BEGIN 

: 131 1444 CS = DBGSNNEXT_WORD(.INPUT_DESC); 

> 1314 1445 5 STG_DESCCDSC$B_CLASSJ = DSC$K_CLASS_S; 
> 1315 1446 5 STG_DESCCDSC$B_DTYPE) = DSCS$K_DTYPE_T;: 
: 1316 1447 § STG_DESCCDSC$W_LENGTH] = .CS(OJ; 

: 1317 1448 § STG-DESCCDSC$A_POINTER) = CSL1); 

: 1318 1449 § SIGNAL (DBG$_SYNTAX, 1, STG_DES(:; 

: 1319 1450 4 END; 

: 1320 1451 3 END; 

: 1321 1458 3 TES; 

: 1322 1453 3 

3; 1323 1454 3 ! Accept the radix argument. 

3 1324 1455 3 : 

: 1325 1456 3 SELECTONE TRUE OF 

: 1326 1457 3 SET 

: 1327 1458 3 

: 1328 1459 3 CDBGS$NMATCH (.INPUT_ DESC, DBGSCS_BINARY, 1)] : 

; 1329 1460 3 NOUN_NODE CDBG$C_NOUN_VALUEJ~= MODE_BINARY; 

: 1331 146¢ ; CDBGS$NMATCH (INPUT DESC, DBGSCS_DEFAULT, 3)]: 

5 1336 re 4 3 NOUN_NODE COBG$C_NOUN_VALUEJ~= MODE_DEF AULT; 

: 1332 1465 : CDBGSNMATCH (.INPUT_DESC, DEGSCS_DECIMAL, 1)) : 

3 13? 1696 ; NOUN_NODE COBGSC_NOUN_VALUEJ~= MODE_DECIMAL; 

: 1337 1468 CDBGSNMATCH (INPUT DESC, DBGSCS_HEXADECIMAL, 1)] : 
; 1338 Hy 14 ; NOUN_NODE CDBGSC_NOUN_VALUEJ™= MODE_HEX; 

: 1340 1471 CDBGSNMATCH (.INPUT DESC, DBGSCS_OCTAL, 1)] : 

: 1341 1478 NOUN_NODE CDBG$C_NOUN_VALUEJ~= MODE_OCTAL; 

: 130 1474 COTHERWISE) : 

: Ht oe 1475 4 N 

> 1345 1476 4 IF DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) 

+ 1346 1477 4 THEN 


D 16 
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vOe~000 12365-1484 933} 21 DEBUG. SRC paGNseT 30:4 . 3 
«MESSAGE _VECT = DBGSNMAKE_ARG_VECT(DBGS$_NEEDMORE) 


LSE 
«MESSAGE _VECT = DBGSNSYNTAX ERROR ( 
DBGSNNEXT_WORD(.INPUT_DESC)); 
ga STSSK_SEVERE; 


TES; 
END; 


—OVDONOUES WN OVOoO~n 


ee (. INPUT_DESC, DBGSCS_SCOPE, 2)] : 
VERB_NODE CDBG$B_VERB_COMPOSITE] = SET_SCOPE; 


! Fill im 1 to the ADVERB field if SET SCOPE/MODULE was 
specified; 0 otherwise. 


SEEX 


..% 178 4 

3; 3 1479 & 

3 1 ioe 4 

a 1282 

3 1 1288 4 

3 3 1484 

3 1 1485 

. % 1486 

3 7 1487 

s 1488 

, 7 1489 

3 1 1490 

, 3 1493 

3 1 1036 

3 7 149 

3 1 1494 

s 1 1495 

| 1496 4 

$ 1306 Ieee IF DBGSNMATCH (.INPUT_DESC, DBGSCS_SLASH, 1) 

3: 1368 1499 3 IF DBGSNMATCH (.INPUT_DESC, DBGSCS_MODULE, 1) 
3; 1369 1500 ; THEN 

3 1300 130) VERB_NODECDBG$' _VERB_ADVERB_PTR] = 1 

4 1328 1308 SIGNAL (DBG$_SETSCOMOD, 1, DBGSNNEXT_WORD(.INPUT_DESC)) 
5 1378 1383 VERB_NODECDBGSL_VERB_ADVERB_PTR] = 0; 

3; 1376 1507 3 IF NOT DBGSNPARSE_SCOPE LIST(.INPUT_DESC, 

3 1377 1508 3 NOUN_NODECDBG$L-NOUN_VALUEJ, .MESSAGE_VECT) 
: 1378 1509 ; HEN 

; 1379 1510 RETURN STS$K_SEVERE; 

3; 1380 1511 3 

3; 1381 1216 § END; 

: 1382 151 

3; 1383 1514 5 CDBGSNMATCH (.INPUT_DESC, DBGSCS_SEARCH, 2)] : 

3: 1384 1515 BEGIN 

: 1385 1516 

; 1386 1517 LITERAL 

3 1387 1518 NOUN_LITERAL_ALL = 1 

> 1388 1519 NOUN“LITERAL-NEXT = 2, 

3; 1389 1520 NOUN_LITERAL_STRING = 3, 

3; 1390 1521 NOUN_LITERAL_IDENT = 4; 

3; 1391 15 ¢ 

; 1338 15 BIND 

; 139 1524 DBGS$CS_ALL = UPLIT BYTE (3, ‘ALL") 

3 139% 1385 DBGSCS-NEXT = = UPLIT BYTE (4, ‘NEXT'S. 
3 1395 15 § DBG$CS_STRING = UPLIT BYTE (6, ‘STRING’) 
3: 1396 15 DBGSCS_IDENT = UPLIT BYTE(10, "IDENTIFIER"); 
3 1332 1528 

: 1398 1529 LOCAL , 

3; 1399 1530 LINK; ! Used as a Link pointer 
; 1400 1531 

: 1401 15 ¢ 

: 1e06 15 ' Set up the verb composite 

; 140 1534 : 


1-3op-19 4 01:58: 
14-Sep-1984 93:35: 


VERB_NODECDBGSB_VERB_COMPOSITE] = SET_SEARCH; 
} Accept the SET SEARCH xxx objects 
WHILE TRUE DO 
SELECTONE TRUE OF 
SET 
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CDBGSNMATCH (. INPUT DESC, DBGSCS_ALL, 1)] : 
NOUN_NODE COBGSC_NOUN_VALUEJ~= NOUN_LITERAL_ALL; 


CDBGSNMATCH (. INPUT DESC, DBGSCS_IDENT, 1)] : 
NOUN_NODE COBGSC_NOUN_VALUE]~= NOUN_LITERAL_IDENT; 


CDBGSNMATCH (.INPUT_DESC, PaGSCS_NEXT.. 1)] : 
NOUN_NODE COBGSC_NOUN_VALUEJ~= NOUN_LITERAL_NEXT; 


COBGSNMATCH (. INPUT DESC, DBGSCS_STRING, 1)] : 
NOUN_NODE CDBGSC_NOUN_VALUEJ~= NOUN_LITERAL_STRING; 


COTHERWISE] : 
IF DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 
-MESSAGE_VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) 


LSE 
-MESSAGE_VECT = DBGSNSYNTAX ERROR ( 
DBGSNNERT_WORD(. INPUT_DESC)); 


WWIWAA AAR PIPPIN 4 2 SO SS SM OOOO 


19.09 9 09 SIN NS SN SN NSP AA AAA AAA TIT BB BEE EWI 
WR SO ODNAUES WN $0 ONAN WN 0 ODNAUES WN S(O ODVNAU EWI" OVOONOUM 


a ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee eee eee 
Fe at oe ot ot pt et et ok et ak he eh eh ee ee a et ae ake ee et et ek et ee ee ee 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
tw Yl al ah ah ab sh sb sb db db Ab db dh hb db db dh db db db db ob db th oh ah ab th th ah sh ah ah ah ab sh ah ah ab ab dh ah sh slab ah ah ah al sal abel al eal eal 
Tee eee ee Pa or ot oe ot ot ot ot or oo eT et et da aa asl al al al al ale et ot oT ot oF oP ot oe? ot ot ot ot ot ot nl Ye 


6 RETURN STSSK_SEVERE; 
END; 
H4 TES 
39 ; 
40 
re } Look for comma and exit the loop if none found. 
“8 IF NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_COMMA, 1) 
45 EXITLOOP; 
<9 
ri Since we expect more input, create another noun node. 
50 LINK = NOUN_NODECDBGSL_NOUN_LINK?; 
33 we ae = DOCSEE!  TERPRER (DBGSK_NOUN_NODE_SIZE); 
‘ =. 3 

33 34 - 
2 85 END; ' End of loop 
5 
33 8s Put a zero in the last Link field of the noun node chain. 
39 30 NOUN_NODE C[DBGSL_NOUN_LINK] = 0; 


: 
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ww 
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Fwn "90m SESESS 


Parse the SET SOURCE command. 
CDBGSNMATCH (.INPUT_DESC, DBGSCS_SOURCE, 2)] : 


ND 
DBGSCS_MODULE = UPLIT BYTE (6, ‘MODULE"); 


is 
288 
464 
465 
rhs 3 " 
468 4 VERB_NODECDBG$B_VERB_COMPOSITE) = SET_SOURCE; 
470 0 
471 9 t Check for SET SOURCE/MODULE=dir-List 
rae 0 iF DBGSNMATCH (.INPUT_DESC, DBGSCS_SLASH, 1) 
the 88 ome BEGIN 
org * 
LOCAL 
478 MODNAMEPTR; 
479 sete 
480 BI 
481 
48 
8 


wr 


Read the string MODULE. 

if NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_MODULE, 4) 
BEGIN 
-MESSAGE_VECT = DBGSNSYNTAX ERROR( 


DBGSNNERT_WORD(.INPUT_DESC)); 
perenne STS$K_SEVERE; 


SSSBLISEAL 


000 
Wn 


} Read the = sign. 
if NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_EQUAL, 1) 


PPNPNPOPONONY IO 
CODNAUFSWN OC OONOULSWN ODE 


BERR RER RRSP R ERE 


BISAE 


AN 


BEGIN 
.MESSAGE_VECT = DBGSNSYNTAX_ERROR( 

DBGSNNERT_WORD(.INPUT_DESC)); 
RETURN STSSK_ SEVERE; 


SARANVLSS 


1 Read the module name. 
iF NOT DBGSNSAVE_STRING(.INPUT_DESC, MODNAMEPTR, .MESSAGE_VECT) 
RETURN STSS$K_SEVERE; 


oS 
~ 
PAEAAAAAASAAAAAAAAAAAAAAAAAAAAAOAAAOAAOOAO COON 


WANA AAW 


' Convert the module name into an rst pointer and 
save into the adjective field of the noun node. 


NOUN_NODECDBGSL_ADJECTIVE_PTR] = 
BBG$STA_GETSOURCEMOD( 7MODNAMEPTR) ; 


st ot wt SY YS 


NOUS WN —O 


ee ee ee ee ce ce em ee ee ee nd ed nd od td od od od 


ee a ee ee ee ee ee ee a ae a ee a i a ee 
yoy a at oT at ot ot oT ot ot ot et et ot eh a hh he eee eh hh i et et et et et ot nt ot ot oF ot ot nl YY ee ee ee ee) 


Be Be Oe Oe Be Os Be Bs Ge Be Se Se Ss Ge Ge Se Ge Se Se Ge Fe Ge Fe Fe Se Se Ge Ge Ge Se Ge Se Se Se Se Oe Se Ge Se Ge Se Se Se Se Fe Se Se Se Se Se Ge Se Ss Se Se Sees 


DONO UE WO OONOU EWN 


SSSI II ISS 
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! If the above routine returns zero then the user has 
entered an invalid module. 


IF | NOUN NODECDBGSL_ADJECTIVE_PTRI EQL 0 
BEGIN 
-MESSAGE_VECT = DBGSNMAKE ARG_VECT( 


DBGS_ROSUCHMODU, 1, .MODNAMEPTR); 
ecru STS$K_SEVERE; 


PPOEAAAAAAAO 


PUPP PIAIPISIVIVIII £ 


END; ! SET SOURCE/MODULE= 


WN "SO OONOUSWN—O”O 


oooo- 


Now read the directory List. 


IF NOT DBGSNGET DIR bist (, INPUT_DESC 
inn NOUN_NOBE 


SOUS WN —"OOONOUES WN O0Ow 


Ww 


DBGSL_NOUN-VALUEJ, .MESSAGE_VECT) 
RETURN STSSK_SEVERE; 
END; ! SET SOURCE 


Se 


} Parse the SET STEP command. 
CDBGSNMATCH (.INPUT_DESC, DBGSCS_SteP, 1)] : 
BEGIN 


VERB_NODE CDBG$B_VERB_COMPOSITE] = EVENTSK_SET STEP; 
alum DBGSEVENT_SYNTAX (.INPUT_DESC, .VERB_NODE, .MESSAGE_VECT); 


Parse the SET TASK command. 


CIF NOT .DBGS$GL_DEVELOPERLO] THEN FALSE ELSE 
DBGSNMATCH (, INPUT_DESC, DBGSCS_TASK, 2)J: 


VERB_NODECDBG$8_VERB_COMPOSITE] = SET_TASK; 
DBGSRPARSE_SET_TASK(~INPUT_DESC, .VERB_NODE) ; 


VMUAIMMVIMUIVIUIU ES BEERS 
DONO VESWN ("OO OnNOUS who 


FERIS 


} Parse the SET TERMINAL command. 
CDBGSNMATCH(. INPUT_DESC, DBGSCS_TERMINAL, 4)]: 


N 
VERB_NODECDBG$B8_VERB_ COMPOSITE) = SET_TERMINAL; 
DOGSSCR_PARSESETTERA_CRO(. INPUT DESC, . VERB_NODE) ; 


SSHIET 


Parse the SET TRACE command. 
CDBGSNMATCH(.INPUT_DESC, DBGSCS_TRACE, 1)): 


ANNO 


wr 


ee ae ee ee ee a a ee ee ee i ee ee a a ed me 
PUPP PULVLVPUPVSVSDUSUPVSUSUSVSU SEDI SUSU SUSU SUSU USSU TSS IASI 


GRERISSSLSS REN Ses 


ee ee ee aN a ee a a ee a ee a a a a a a dd 
PASO 
NAUSWN SO OONAULSWN—O0W w 
RIP IPIPIPD ANI ARININIPININI HANI LPIPIPIPIPYIPIPI HIIAPPIPUPIPUDI IWIN AANA & BUNT BE PEPE EE 


~“ 
=~ 


re 


s-32 V4. 


y 1 oi toe 
DEBUG. SRC JDBGNSET .832; 


AXx-1 
! SET TYFE or SET TYPE/OVERRIDE 


ode; 


VQUNNYUnN> OF ty ft i «M— OO 
SSP See KREIS ao 
eeeeeeeeeeiWeee#e#ese#se _-_ oeeeeseswe#se 


1 
2 
_TRACE; 
) 

) 

I 
I 
I 
I 
) 

é 
k 
L 
L 
L 
L 
K 
f 
T 
NGW 
CTAWO 


1 
1 

J] = SET 

Gi_VECT 


K 
dbg$cs_slash, 1) 


> OP OO 
OOOO8888Q2888860 20288 
a ee ee ee a to 
Ot od at Od tt et Ot Og ot 
ddiiddblbdhdiiddhbicdeicdiaeded EO ddcbddabal 
aac 200000000000 11500000 
alec eaeatiendeineteteateateatertentatieateat @ 2S25>5>5>> 
nHonnnnnnnnnnnnHnOo naonnn 


gth node (the second noun node). 
J = .lengt 


-input_desc, dbg$cs_cr, 1) 


- VERB 
-MESS 


Fonpges ifogts noun node_stze): 
n 


COMPOSIT 
SYNTAX (.INPU 
lin 


: REF dbg$noun_node; 
vect 


_noun_ 
nmatch ( 


g$nmatch (.input_desc, dbg$cs_override, 1) 
e 
3s 


ppeese VERB 
EVENT 
WORD 


) 
-input_desc, dbg$cs_type, 2)] : 


-messa 
(IF db 


THEN 


VVOEOEVOVOVOVVYVVYVVOEYU 
A A td 
o o o 
[oa] @ @ 
(=) So C=) 


' Must find ‘override’ 


node (Cdbg$l 


' Look for slash 


if NOT db 


LENGTH_NODE 
S 
5 
5 
5 
5 
5 
5 
5 
5 
§ 
5 
S 
5 
5 
5 
5 
5 


REGIN 


DBGScS 


' Create and Link the len 


PARAAAAAAAA 
VVOGVIVUONNUNNU 
Qaoaoao 22222 
acaonoaaacana 


if dbg$nmatch (.input_desc . 


length_node = dbg$get_ 
THEN 


BEGIN 
VERB_NODE 
RETURN DBG 
END; 
Snmatch ( 
BEGIN 
LOCAL 

BIND 

noun_ 


Cdbg 


PVESV EVEN PEEP ETE II AF SF WF AT AT TUNA OO 


pe 8 eatin ee elim NAT A EF ees ER rN ke oe DOAOK— MUM TNOR. DOOK— CUM TNOR. OOO W 

See eee rT AS a8 a8 38 98 AO AO AO AS OEE eee 
RRR. 
Sek eel cel ee el ee ee el eel ee ee el eel ce el el eh el ee eel ee ee el ce cel el el el eh el ee el el eh el eh eh el eh ee ce ee el el el ee ed el el el ee ee ee ee 


KERR SEIS SLESSLE STS S LE OS a eS a ee on see Oe NURS 


DAAAILAUAIALLIAIIIAN OOD OO WOOOOOODODOOOVOVODODOOOVDOOOO0S 
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dbg$nmake_arg_vect (dbg$_needmore) 
dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
— stsdk_severe; 


wr 
AAO 
Mw 


ww 


Set the verb composite 

verb_node Cdbg$b_verb_composite] = set_type_override; 
ELSE 
verb_node [dbg$b_verb_composite] = set_type; 
The verb composite has been set. We must recognize the type specified. 
SELECTONE true 

OF 

SET 


Cdbg$nmatch (.input_desc, dbg$cs_ascic, 5), 
dbgSnmatch (,inputdesc, dbg$cs_ac, 25] : 


noun_node Cepast noun_value] = dsc$k_dtype_ac; 
Length node bg$l_noun_value) = 0; 

Cdbg$nmatch (.input_desc, dbg$cs_ascid, 5) OR 

dbg$nmatch (.input-desc, dbg$cs_ad, 25] : 


noun_node [dbg$l_noun_value] = dsc$k_dtype_ad; 
Length node Cdbg$l_noun_value] = 8; 


SE PEREE EERE PORSRRRRREERERGgCRCeS 


a a a a et a at at i“ et a = ot = as = 2 St a 


NEAR SS Ooo SRM PU OSES NOU RUIN Ooo os 


OOO 000000000009 000009 0909 09 09 SII NI NINN SII O 


Cdbg$nmatch (.input_desc, dbg$cs_packed, 1)] : 
BEGIN 


00 C909 Co C9 09 C9 C908 SISSIES NSS SS SS 


ee ee ce ee ee ce ee ce ce ce ce ee ce ce ce ce ce ce ce ce ee ee ee ee ee ce ce ce ce ce ee ce ce el el ce ce ce ee ce ee cel ee ce ce el ee eed el eel ee 


PPP AAT EB BE BE EE EE ENA ANNAN & BANANA ANNAN BEEBE PIO nm 


1667 8 

1668 +4 noun_node Cdbg$l_noun_value] = dsc$k_dtype_p; 

1670 01 ' Accept the ‘:° and integer. If there is no colon, use 

102) O } a length or default of 10. 

1678 oe IF NOT dbg$nmatch (.input_desc, dbg$cs_colon, 1) 

1673 88 a6 SIGNAL (dbg$_pacsizreq) 

ee BS BY, 

a4 B19 We found the colon. Accept the integer 

1681 HE if NOT dbg$nsave_integer (.input_desc, 

1 $ 81 Length_node Cdbg$l_noun_value]) 
168 814 THEN 

ieee ot? RETURN sts$k_severe; 

1086 Bi } Check to see that the Length is within 0 and 31 

1688 319 if (.Length_node Cdbg$l_noun_value] LSS 0) OR (.length_node [dbg$l_ndun_value] GIR 


: 
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689 THEN 

oay nap ent Meogt AU lpecstz. 1, .length_node Cdbg$l_noun_value]); 
i 00; 
O80 Cdbgsnmecch (.input.desc, dbg$cs_ascii, 1)] : 
24 noun_node Cdbg$l_noun_value] = dsc$k_dtype_t; 
698 ! There may be a colon followed by integer. If not, 
344 we use a default length of 4. 

201 length_node Cdbg$l_noun_value] = 4; 

08 3 See if a colon follows 

05 3 If dbg$nmatch (.input_desc, dbg$cs_colon, 1) 

06 ; THE 9 put, gscs_ 

07 BEGIN 

08 3 

09 rs Obtain the integer. 

4 


if NOT dbg$nsave_integer (.input_desc, 
ne Length_node Cdbg$l_noun_value]) 


NRETURN sts$k_severe; 

Check for a zero Length 

sf tength pate Cdbg$l_noun_value] EQL 0 
BEGIN 

Set up for an error message 


PROIPIRE® IRD at st ot ot 2 2 
NOUS wr COOONOUSWN Oo 


Monn 


ZERO_DESC : este desc; 
zero_desc Cdsc$w_length] = 1; 


DWOONAUE WN OS OOONAUE WN 0 OONOAUE ARO OONOUS WN —O 


SN NNN NNN SNS NSS SSNS SSS 
MUMIA 


ee ee me ee ee ee ee ee ee a ee ee ee ee ee ee ed ed ed ed ed wd 8d 2d od 
ee ee ce ce cee ce ce ee ee ee ee ee ee ce ee ee ce ce ee ee ce ee ee ee ee cD ee ce ce ce ee cl cee ee ee ce ce ee ce ee ee ee cel el cel ee ce ce ce cl cee ee ee 
FPA & FAA ENA AAAAAAAAA AOI BB BBP PEPE PW 


zero_desc (Cdsc$a_pointer]) = UPLIT BYTE ("0"); 
ye8 FH -message_vect = dbg$nmake_arg_vect (dbg$_invnumber, 
7 861 zero_desc); 
731 B66 RETURN sts$k_severe; 
7 § 86 3 
7 864 END; 
7 865 END; 
735 £66 : 
7 Cdbg$nmatch (.input_desc, dboscs_asciz 5). 
re 868 dbg$nmatch (.input=desc, dbg$cs_az, 25) : 
7 $56 noun_node Cdbgsl noun_value] = dscSk_dtype_az: 
740 871 Length_node (Cdbg$l_noun_value) = 0; 
et 7 END; 
748 2 Cdbg$nmatch (.input_desc, dbg$cs_byte, 1)] : 
745 876 noun_node [dbg$l_noun_value] = dsc$k_dtype_b; 


. 
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333 


Cdbg$nmatch (.input_desc, dbg$cs_octaword, 1)] : 


noun_node Cdbgst noun_value] = dsc$k_dtype_o; 


Length_node Cdbg$l_noUn_value] = 16; 
END; 


$332 


DONAULSWN —“OVOONOUSWN—O 


>} 
oO 
oo 


CdbgSnastch (.input_desc, dbg$cs_quadword, 1)] : 


Sg 


noun_node Cdbg$l_noun_value] = dsc$k_dtype_q; 
pea te = 8: _— 


; Ub 1877 4 Length_node Cdbg$l_noun_value] = 

He Ry a 

; 1769 ! rs i echesoaste! “.input_desc, dbg$cs_date_time, 2)] : 
: 1751 1 ; 4 noun_node Cabgst noun_value] = ds¢Sk_dtype_adt: 
3 17 ¢ 1 4 Length_node [dbg$l_noun_vaiue] = 8; 

Hep RY oe 

; 102? : Bg i edhgzonetch (.input_desc, dbg$cs_d_float, 1) J]: 
; 1789 1958 4 noun_node Cdbgst noun_value] = dsc$k_dtype_d; 
; 1758 1889 4 Length_node [dbg$l_noun_value] = 8; 

2 a 

: 1761 189¢ Cdbg$nmatch (.input_desc, dbg$cs_float, 1) 

; 176¢ 1893 ; dbgSnmatch (Sinput=desc, dbg$cs_f_float, 1)] : 

3 1764 1895 4 noun_node CdbgSt noun_value] = dsc$k_dtype_f; 
: 1765 1896 4 Length_node Cdbg$l_noun_value] = 4; 

ae BY a 

: 1768 Hb 4 i Cdbgsonatch (.input_desc, dbg$cs_g_float, 1) ]: 
3 1770 1901 4 noun_node Cdbgst noun_value] = dsc$k_dtype_g; 
3 1771 1906 4 Length_node Cdbg$l_noun_value] = 8; 

: 1048 1904 3 = : 

; 177 1905 Cdbg$nmatch (.input_desc, dbgScs_h_float, 1) J : 
: 1776 1907 4 noun_node Cdbgst noun_value] = dsc$k_dtype_h;: 
3 1777 1908 4 Length_node Cdbg$l_noun_value) = 16; 

He RG = 

; 1780 : CadbgSnmatch (.input_desc, dbg$cs_instruction, 1)] : 
; He 4 1913 4 noun_node Cdbgst noun_value] = dsc$k_dtype_zi; 
3 178 1914 4 Length_node Cdbg$l_noun_value] = 0; 

3 ree : ; ; END; 

; 176 : 1 ? CdbgSnmatch (.input_desc, dbg$cs_longword, 1)] : 
: 1788 1919 4 noun_node Cdbgst noun_value] = dsc$k_dtype_l; 
3 1789 1 4 Length_node (Cdbg$l_noun_value) = 4; 

3; 17 j ; END; 

3% 1 

3 1 

| 1 4 

3% 1 4 

S| 1 4 

3; % 1 

3 1 1 

3 1 1 

3% 1 4 

3% 1 4 

3% 1 4 

3 1 1 3 


WODODOODOOODOOODOOOODOOODOOOOVONO 


a 
Wino 


Length_node 
END; 


Ss 
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; 1803 1934 ; 

: 1898 13 5 i CdbgSrmatch (.input_desc, dbg$cs_word, 1)] : 

31 1937 4 noun_node Cdbg$l_noun_value] = dsc$k_dtype_w; 
; 1807 12 : 4 Length_node Pipes palin nolan! = 5: a 

> 1809 1940 3 : 

eth 1942 lids 5 ie 

: 181g 1908 4 smessage_vect = 

3 a LP og: 5 (IF dbgSnmatch (.input_desc, dbg$cs_cr, 1) 

; 1815 1308 gg DOSrmake_org_vect (dbg$_needmore) 

3; 1817 1948 4 agreed ‘ype dig (dbg$nnext_word (.input_desc))); 
; 1818 1949 4 RETURN stsSk_severe; 

: 1836 198) _— 

: 1854 1958 TES; 

; 13s¢ 195 

185 1988 — 

; 1895 1956 

: 1826 195 ' Parse the SET WATCH command. 

3 ese 1958 4 

3 i : 1923 stag 75g (. INPUT_DESC, DBGSCS_WATCH, 1)]: ’ 
: 1850 1961 VERB_NODE CDBG$B_VERB_COMPOSITE] = SET_WATCH; 

3 1832 1306 5 gg DBGSEVENT_SYNTAX(.INPUT_DESC, .VERB_NODE, .MESSAGE_VECT); 
: 183 1964 , 

3 1834 1965 

3; 1835 1966 ! Parse the SET WINDOW command. 

3: 1836 1967 ! ‘ 

: Ht 1908 aa "1 > iia aint DBGSCS_WINDOW, 3)]: 

: 1839 1970 3 VERB_NODECDBG$B_VERB_COMPOSITE) = SET_WINDOW; 

3; 1840 1971 3 DBGSSCR_PARSE_SETWIND_CMD(. INPUT_DESC? -VERB_NODE) ; 

3 th 197% 2 END; 

: 1828 197% 

> 1844 1975 ! Any other SET command keyword constitutes a syntax error. 
3: 1845 1378 $ 

3 1966 197 COTHERWISE): 

: 1 1978 N 

5 Ho 4 44 IF DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 

; 1330 133) -MESSAGE_VECT = DBGSNMAKE_ARG_VECT(DBGS$_NEEDMORE ) 
; 1852 1988 LSE 

3 1332 1° $ -MESSAGE_VECT = DBGSNSYNTAX_ERROR(DBGSNNEXT_WORD (.INPUT_DESC)); 
: 1855 1986 RETURN STSS$K_SEVERE; 

3 1 2$ 198 END; 

| o 

; 1389 1990 : 


roe 


$eare YR - 02746 
DBGNSET .B32; 
SHR, PIC,0 


Return to the caller. 
LE paGNSET 
NT \v04-000\ 


T 
E 
-PSECT DBGSPLIT,NOWRT, 


TI 
ID 


y parsed. 


' The SET command has been successfull 


RETURN STSSK_SUCCESS; 


END; 
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15-Sep-1984 91:98:19 AX-11 Bliss-32 V4.0-742 Page 3 
14-Sep-1984 12:17:21 DEBUG. SRC JDBGNSET.B32;1 (3) 
OA 00262 P.ADH: .BYTE 10 ; 
52 45 49 46 49 54 4E 45 44 49 0026 ASCII \IDENTIFIER\ 3 
06 00260 P.ADI: .BYTE 6 3 
45 4C 55 446 4F 4D 0Q026E «ASCII \MODULE\ : 
02 00274 P.ADJ: .BYTE 2 : 
43 41 00275 eASCII \AC\ ; 
02 00277 P.ADK BYTE 2 : 
44 41 0278 «ASCII \AD\ : 
05 OO27A P.ADL: .BYTE 5 3 
43 49 43 53 41 00278 «ASCII \ASCIC\ 3 
05 00280 P.ADM: .BYTE 5 3 
44 49 43 53 41 Be 1 eASCII \ASCID\ ; 
05 00 P.ADN: .BYTE 5 F 
49 49 43 53 41 0028 eASCII \ASCIIN : 
05 Be sBs P.ADO: .BYTE 5 3 
5A 49 43 53 41 0028D ASCII \ASCIZ\ ; 
02 343 P.ADP YTE 2 3 
SA 41 0029 «ASCII \AZ\ ; 
04 00295 P.ADQ: YTE 4 3 
45 54 59 42 00296 ASCII \BYTE\ : 
3A 01 baSee P.ADR: .BYTE 1, 58 ; 
07 0029C P.ADS: .BYTE 7 : 
54 41 GF 4C 46 SF 44 0029D ASCII \D_FLOAT\ ’ 
05 OO2A4 P.ADT: . E 5 : 
54 41 4F 4C 46 O02A5 ASCII] \FLOAT\ : 
07 QO2AA P.ADU: .B 7 ; 
54 41 GF 4C 46 SF 46 OQO02AB eASCII \F_FLOAT\ : 
07 002B2 P.ADV: .BY 7 3 
54 41 4F 4C 46 SF 47 00283 ASCII \G_FLOAT\ : 
07 QO2BA P.ADL -BYT 7 ; 
54 41 GF 4C 46 SF 48 002BB ASCII \H_FLOAT\ 3 
06 posts P.ADX: .BY 3 
44 45 48 43 41 50 002C «ASCII \PACKED\ : 
OB 002C9 P.ADY BYTE 1 ; 
4E GF 49 54 43 55 52 54 53 4E 49 OO2CA «ASCII \INSTRUCTION\ : 
09 00205 P.ADZ: .BYTE ; 
45 4D 49 54 SF 45 54 41 44 00206 «ASCII \DATE_TIME\ : 
08 OO2DF P.AEA: .BYTE : 
44 52 4F 57 47 4E 4F 4C Q02E0 eASCII \LONGWORD\ ‘ 
08 OO2E8 P.AEB: .BYTE : 
44 52 4F 57 41 54 43 4F O02E9 «ASCII \OCTAWORD\ F 
08 poet) P.AEC: .BYTE 5 
45 44 49 52 52 45 56 4F O02F2 «ASCII \OVERRIDE\ $ 
98 4 FA P.AED: .BYTE : 
44 52 4F 57 44 41 55 1 O2FB eASCII \QUADWORD\ : 
04 00303 P.AEE: .BYTE 4 : 
44 52 4F 57 00304 eASCII = \WORD\ : 
30 00308 P.AEF: .ASCII \O\ g 


-PSECT DBGSOWN,NOEXE, PIC.2 


00000 ZERO_DESC: 
-BLKB 12 


-PSECT DBGSGLOBAL,NOEXE, PIC,2 
00000000 00000 DBGSGL_DEVELOPER: : 


a 


AX-11 Bliss-32 V4.0-742 
DEBUG. SRC DBGNSET.B32: 1 


1 

-Sep-1984 01:58:19 
=300- 1382 12 3s 21 

-LONG 0 
DBGS$CS_BREAK= P.AAA 
DBGS$CS_DEF INE= P.AAB 
DBGSCS_DEVELOPER= P.AAC 
DBG$CS_DISPLAY= P.AAD 
DBG$CS_EXCEPTION= -AAE 
DBG$CS_LANGUAGE= P.AAF 
DBG$CS_LOG= P.AA 
DBGSCS_KEY= P.AAH 
DBGS$CS_MARGINS= -AAI 
DBGSCS" MAK =SOURCE_FILESS 
DBGS$CS_MODE= P.AAK 
DBG$CS_MODULE= P.AAL 
DBG$CS_OUTPUT= P.AAM 
DBGS$CS_RADIX= P.AAN 
DBG$CS_SCOPE= P.AAO 
DBG$CS_SEARCH= P.AAP 
DBG$CS~SOURCE= P.AAQ 
DBGS$CS_STEP= P.AAR 
DBG$CS_TASK= P.AAS 
DBGS$CS_TERMINAL= P.AAT 
DBGS$CS_TRACE= AAU 
DBGS$CS_TYPE= AAV 
DBGS$CS_WATCH= P. AAW 
DBGS$CS_WINDOW= P.AAX 
DBG$CS_COLON= P.AAY 
DBGS$CS~COMMA= P.AAZ 
DBG$CS_EQUAL= -ABA 
DBG$CS"SLASH= P.ABB 
DBG$CS_CR= P.ABC 
DBGSCS_ADDRESS= P.ABD 
DBGSCS_ COMM, P.ABE 
DBGSCS_ ~PROCEDURE= P.ABF 
DBG$CS_STRING= P.ABG 
DBG$CS_ VALUE= P.ABH 
DBGS$CS_STATE= P.ABI 
BG$CS_NOSTATE= P.ABJ 
DBGSCS_NOLOG= P.ABK 
DBGS$CS_MACRO= P.ABL 
DBGSCS_ FORTRAN= P.ABM 
DBG$CS_BLiSS= P.ABN 
DBG$CS_ COBOL= P.ABO 
DBGSCS_BASIC= P.ABP 
DBGS$CS_PLI= P.ABQ 
DBG$CS~PASCAL= P.ABR 
DBG$CS_C= P.ABS 
DBGS$CS_RPG= P.ABT 
DBGS$CS_ADA= P.ABU 
DBGS$CS_ UNKNOWN= P.ABV 
DBG$CS_BINARY= P.ABW 
DBGS$CS_DECIMAL= P.ABX 
DBGS$CS_DEFAULT= P.ABY 
DBG$CS-G_FLOAT= P.ABZ 
DBGSCS"HEXADECIMAL= P.ACA 
DBGS$CS_KEYPAD= P.ACB 
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19 i -11 B 

21 DEBUG. SRC JDBGNSET.B32;1 (3) 
DBGSNGET_DIR_LIST 

DBGSNGET- TRANS RADIX 
DBGSSCR_EXECUTE_DISPLAY_CMD 
DBGSSCR-EXECUTE_SETTERM_CM 
DBGSSCR_EXECUTE-SETWIND- CMD 
DBGSSCR_PARSE_DISPLAY_CMD 
DBGSSCR_PARSE_SETTERM_CMD 
DBGSSCR_PARSE~ SETWIND_CMD 
DBGSSCR_SCREER_MODE 
DBGS$STA_GETSOURCEMOD 
DBGSSRC_SET_ SOURCE 
DBGSNSAVE_DECIMAL_INTEGER 

D GENSAVE STRING 
DBGSNSAVE-STRI 


ARGIN 
DBG$ SET pax FILES 
SO CSNPATHDE SC 
DBGSRST_ Atte BeCSGET _MEMORY 
DBGSREL oper ant DBGSGET~ TEMPMEM 
DBGSNSAVE ESP 
DBGSNMA NRATEAY IT EOSNPARSE ADDRESS 
DBGSNNEXT _WORD, DBGSNOOT_INFO 
NMAKE ARG, vecT 


KEY 

DBGS$GL-KEYBOARD_TD 

DBG$GB_ RADIX. RDBGSGL _GBLTYP 

DBG$GW~ GBLLNGTH 

DBGSGL-DFLTTYP, DBGSGW_DFLTLENG 
ANGUA AGE 


DBG$GB_ SEARCH P 
4x4 Ys ippcsca BREE INE PTR 


DBG$GB"LOGF SR, * DBCSCE” LOGF SE 


*L 

pecs B-STP ALP »DaGSsAC _LEFT_MARGIN 
BGSSRC_RIGHT GIN 

ppcseL _ORI CT LOMRAND PTR 

DBGSGL ~UPCASE COMMAND _PTR 


DBGSCODE .NOWRT, SHR, PIC,0 


: 
DBGNSET 1b-Sep-1986 01:58:19 VAX=11 Bliss-32 v4.0-762 eas 44 
vita ta 1er80e- 1 3B2 93:79:33 SRCI age 3) 


4 DEBUG. SRCJDBGNSET.B32;1 
OFFC 00000 .ENTRY DEGSNPARSE SET, Save R2,R3,R4,R5,R6,R7,RB,- = 0452 
R9,R10,R11 : 
SE 18 (2 90002 SUBL2 #24, SP : 
04 DD $009 PUSHL #4 + 0543 
000000006 00 01 FB 00007 CALLS #1, DBGSGET_TEMPMEM : 
58 50 D0 O000E MOVL RO, NOUN_N : 
59 08 AC DO 00011 MOVL § VERB_NODE, R : 0548 
08 A9 58 DO 00015 MOVL | NOUN-NODE, 8(R9) : 
01 oD 00019 PUSHL #1 : 0559 
00000000" EF 9F 0001B PUSHAB DBGSCS_BREAK : 
57 04 AC v0 Bo06! MOVL INPUT_BESC, R7 : 
57 DD 00025 PUSHL : 
000000006 00 03 FB 90 7 CALLS #3, DBGSNMATCH : 
01 50 D1 0002E CMPL RO, #1 : 
07 12 00031 BNEQ : 
01 a9 01 90 00033 MOVB = #1,._:1(R9) > 0561 
1054 31 00037 BRW 205$ + 0564 
01 DD 0003A 1$ PUSHL #1 : 0569 
00000000" EF 9F 0003C PUSHAB DBGS$CS_DEF INE ; 
57 DD 00042 PUSHL R : 
000000006 00 03 FB 00044 CALLS #3, DBGSNMATCH : 
01 50 D1 00048 CMPL RO, #1 : 
52 12 O004E BNEQ : 
01 Ag 17 90 00050 MOVB #23, 1(R9) : 0581 
01 0D 00054 PUSHL : 0590 
00000000' EF 9F 00056 PUSHAB DBG$CS_ADDRESS ; 
57 DD 0005¢ PUSHL ; 
000000006 00 03 FB 0005 CALLS #3, DBGSNMATCH : 
01 50 D1 0006 CMPL RO, #1 : 
03 12 00068 BNEQ 2$ ; 
0A17 31 OO06A BRW 130$ ; 
01 DD 0006D 2s: PUSHL #1 : 0593 
00000000" EF 9F 0006F PUSHAB DBG$CS_COMMAND ; 
57 DD 00075 PUSHL R ; 
000000006 00 03 FB 00077 CALLS #3, DBGSNMATCH : 
01 50 D1 O007E CMPL RO, #1 : 
03 12 00081 BNEQ 3$ : 
OA6D 31 00083 BRW 138$ ; 
01 DD 60086 3$ PUSHL # : 0602 
00000000' Ef 9F 00088 PUSHAB DBG$CS_VALUE ; 
7 DD OO08E PUSHL ; 
000000006 00 03 FB 00090 CALLS #3, DBGSNMATCH : 
01 30 D1 90097 CMPL = RO, #1 : 
03 13 OO09A BEQL 486s 4$ ; 
9p0E 31 0009C BRW 169$ ; 
269 31 OOO9F 4$: BRW 37$ ; 
09 DD OOOA2 5$: PUSHL #9 > 0620 
00000000' Ef SF OO0A4 PUSHAB DBGSCS_DEVELOPER ; 
7 DD OOOAA PUSHL R ; 
000000006 00 03 FB OOOA CALLS #3, DBGSNMATCH F 
01 Q D1 0008 CMPL 0, #1 : 
0 13 086 BEQL 43s 6S ; 
0084 3 0B BRW 138 : 
01 «Ad 16 90 000B8B 6$: MOVB #22, 1(R9) > 0625 
52 08 a9 SE 000BF MOVAB 8(R9), LINK + 0626 
01 DD 000C3 PUSHL #1 > 0627 
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DD ites 
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9 00004 

1 00007 

D QOODA 7$: 
Fe 00DD 
3 O0E4 

1 Q00E7 
DS OOOEA 8$: 
1 ise 

15 ita 
Bp QOOF3 9$: 
1 OOOF9 
9E OOOFC 10$: 
DD 00100 
9F 00102 
DD 00108 
FB 0010A 
E8 00111 
DD 00114 
9F 00116 
DD 0011C 
FB QO11E 
gS 00125 

1 00128 

31 00128 11$: 
DD O0012E 12$: 
FB 001350 
DO 00137 
DO OO13A 
11 00130 
DD 0013F 13%: 
9F 00141 
DD 00147 
FB 00149 
Di 00150 

12 00153 
90 00155 
DD 00159 
DD 85138 
DD 0015D 
ro Bat 2 

1 3198 
DD Bote 148: 
oF 319A 
ei 
D1 o155 

12 pee 
DD 0017E 
9F 00180 
DD 001 

4 01 

3 01 

1 001 
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G$CS_CR 
BGSNMATCH 


NGO 


$ 
$ 
(SP) 

SOON _ ETE SER 


6 

‘D 
55° 

OUN_NODE) 
QUN_NODE), #31 
84424 

RB), LINK 
GS$CS_COMMA 
a3. DBGSNMATCH 


#1 
DBGSCS_CR 


4 
$ 
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#1, DBGSGET_TEMPMEM 
RO, NOUN_N 
NOUN_NODE, (LINK) 
7$ 

a3 

DBGSCS_DISPLAY 

#3, DBGSNMATCH 

RO, #1 


14 
#24, 1(R9) 
RO 

#1 

H 
16$ 
#1 
DBG$CS_EXCEPTION 
#3, DBGSNMATCH 
RO. #1 

17$ 

# 

DBGS$CS_BREAK 

#3, DBGSNMATCH 
RO. 15$ 

169$ 


DBGSSCR_PARSE_DISPLAY_CMD 


Page 42 
. (3) 


BeBe Se Se Se Se Se Se Se Se Be Se Se Ge Fe Fe Fe Se Fe Ge Se Fe Se Fe Fe Se Ge Ge Se Be Be Se 


3 


0632 


0636 
0637 
0640 


0644 
0645 


; 0648 


0693 


<o | 


$ee2e V4.0-742 
DBGNSET.B32;1 


wee wr Ow Woo woo Co - o Ome ~o ~ 
ornen mn Ms www mnw w wo Oo “oor ~ ~ 
nner K~Y KR rn nen ~~ rm i Tn ~ ~ 
oooo oo Ooo ooo ooo o oO Oo ooo oO Oo 
Pe Fe Fe FS FS FS FS FS FS FS FS FSFE FS HS FS FSFE FSFE FSCS FS HS HS HS HS HS HS FS HS HS HS HS HS HS HS HS HS HS HS HS HS FS HS SS SO SSH FREE HS TEES HR HSE HS 
~~ o~ 
vw w w ws 
ad wn” —- & _ 
oa w < oOo <x 
_ a - 2 — 
‘ ” t ” 
5 > 't2 v 
_ = w ae so ar 
| w wt —§ © —_ 
a zw Oo 2 o 
za anwar wet ~ [ver ¢ 
a Zzwkw uk = 
=x 0 ad woww mw . =x = = w = Mw 
vw a <« —- Few cto Ww YL vw vw —- vw vw «oa 
- — = owaw fF | om = = oOo - <= - w we ft 
<x ahCU/o Ww au —- w <= ” <« Oo <« - <« (vy) e 
~-> = > =—— We sO Fw 5 4 5 + =< ” s Qa ww 
~ w 2 wa wo © OW ft WH | «= ad oe «& oO 1 wm 
oa “= A “x= *&#oe *AMs—>- MMO VY WH Yn A zea zea > ww 
a 'o ~jOw~ OFoO ty oaw ‘' Of ' oF 'o 'wo [vw] as 
~ ” @O- QOOowe Duie-Aw EZ~sa ” OC ” aw ” @O-— ” @O- =x«~ JIE 
on ve oF Ora arr MOMS 1 Vv oe vv am v eas A vv ae nom 
ow fF Aan . wrTwaae aq * ~ ca fA fo) ee aaw 
=m © = MRO OD es wrreEMO + se A "Oo 9 *- Marr Oo * MEMO wa 
MH — — DR MODO OR KUN OM YS WS OMe We OP MOT Oe OP MOK- MOR MOTY~ K—MOrMmOMmWw~ OMoO 
Bzwrveocedc-e MOR BzBZBVBVTevr i OBRBRe-BOCTCRBRO-e BOTCVAVSROCR Ow SVSROCAaawvr 1 owzw 
@oo FIT VWAEIMDTIIgGIIgITITsssITITIwvV3sygTtIIuM FIruIsawsw FTIETEIwIIITtIITw4 
SX 3M 08 3BOH) YS H YS FP TZVTEHN IS POY UD BMH UO 3M UA WTEOMMH VA we 4 UD 
OY DDD et Ewe wD tODIOO YD IDI OOD Dae UW DD Det EDDIE SZ UE DD Be EZ UDI 
Ze OAAACVMMMAVTAVTTVAVAVEZAAAVOr-MAGAAYVOMAAAVYO MAAAvYVMACA WD 
r AA co et AA ead PA 
ww or f°] o o- N mT 
rer ee - - wm N om 


MOVE KP CHOMND LU NVONUG VP100 LOOP DwWOODe WT ODWOrR << OL ME WI MOD LON VWOUDu. 
OOOO << fT OMODOMOMDCVO0OO OW WWW & & 4 DOOD ee NINN ST ST TT TMMUUNN OOOO 
SO  ENUNININUNUIKININICNUIKUIKURNUINUINUINUNUICUINUINICUCUINICUICINICIOCIONNG 
COOCOCCOCOCOOCOCCOCOCOCOCOCCCOCCCOCSCOCO COSCO COCSOOCOSCOOSCOOCOCOOOOOSCOOOOOOCOOOOOOoOoOO 
OOOCOCOCOOCOOCOOCOCSOCOCOOSCOCCSOS SOOO CCOOCOCCSOOSOOCOOSOCOSCOOCOCOOOOOOOOoOO 


OV O64 OO Me DODO OMOCOT OFu DOC Cu OMWM Ou ODO Ov OOK WT — Ov OOr VO Tu Oe 
APr-MOC Ou OF-- MWOUP Ou OOOO u4%O0O08 O44 WO AC Ou WMAP Ou Or On OC Ou OOOO ue 


MON &P-MOMNO & — ON KOK NN WOM — Ue AP MOR. Om BA MO ZB MER- MOM OMELP- MOMMUWOM << 
SLTFTOUMOMOVODO— COM D LUV. COONS WNOMN ODDO WMNOMAOWNOWOS <DOWMOM UV OOD 
o e- ua 


Oo Oo o 
= wo wo . 2 eo = wo 
w Oo ooo ow So o o So w oO oO 
Oo o o- oo o So o o o So [=] 
Oo oa o Oo So So So So o 
o oo o So Oo Oo Oo o o 
Oo om ws o oS So So So So 
Oo oo Oo So o So o So So 
o oo N o o o oS So So 
Oo oo Oo oO o Oo o o oO 
oa o~- a oo orr OoOnew oc om on o- oOo 
<< oo Co oxct OW! oxto oo oo oo oo o 
o o oO o oo o peo] oO Oo 
_— oO o- Oo ow o o o So So 
oO o oo So oo o o So So SoS 
oO o So Oo So o oS So So 
oOo o Oo o o [=] o oS o 
Oo o So o [=] o So o oS 
Oo o o o Oo So So o oS 
oO o oOo Oo So o So So oS 
oO oO oO o oO o o o o 


J 
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yoo 000 12-808 - 1382 9337 :21 DEBUG. SRCJDBGNSET.B32;1 9 3) 
01 po 0 71 25$: PUSHL #1 : 0780 
00000000' gf F i PUSHAB DBGS$CS_LOG : 
7 OD 0027 PUSHL : 
000000006 00 03 FB 0027 CALLS #3, DBGSNMATCH : 
01 0 pi 0028 CMPL RO, #1 : 
06 if 028 BNEQ 26 : 
06 ag 01 p00 00287 MOVL #1, 4(R9) : 0782 
B9 11 00 BB BRB 23§ + 076 
1 DD 0028D 26$ PUSHL #1 : 0785 
00000000' Ef OF O028F PUSHAB DBGSCS_STATE : 
7 OD 09295 PUSHL R : 
000000006 00 03 FB 6 97 CALLS #3, DBGSNMATCH : 
01 0 »D 9E CMPL RO, #1 : 
03 13 002A1 BEQL 8 : 
0B07 31 002A3 278: BRW 169$ : 
01 dD O02A6 288: PUSHL #1 + 0789 
00000000' EF 9F 002A PUSHAB DBGSCS_EQUAL : 
7 OD OO2AE PUSHL : 
000000006 00 03 FB 00280 CALLS #3, DBGSNMATCH : 
E9 0 €9 00287 BLBC R : 
04 A2 D4 OO2BA CLRL  4(fEMP_KEY_DESC) + 0800 | 
62 B4 002BD CLRW (TEMP_REY_BESC) : 0801. 
OC AC OD 002BF PUSHL MESSAGE VECT : 0804. 
25 DD 002C2 PUSHL TEMP _KEY_DESC ; 0803 
57 DD 002C4 PUSHL R : 0802 
000000006 00 03 FB 002C6 CALLS #3, DBGSREAD_KEY_INFO : 
53 50 DO 002CD MOVL RO, STATUS : 
03 53 E9 00200 BLBC STATUS, 29S : 0805 
FF28 31 00203 BRW : 
50 53 DO 00206 298: MOVL STATUS, RO ; 0807 
04 006209 RET : 
02 DD OO2DA 30S: PUSHL #2 : 0828 
00000000" EF 9F 002DC PUSHAB DBG$CS_LANGUAGE : 
57 DD 002E2 PUSHL R7 : 
000000006 00 03 FB 002E4 CALLS #3, DBGSNMATCH : 
01 50 D1 002EB CMPL RO, #1 : 
03 13 OO2EE BEQL 46-31 F 
0131 31 002F0 BRW 49$ ; 
01 a9 04 90 002F3 318: MOVB = #4, :1(R9) : 0845 
02 oD 99 F7 PUSHL # : 0850 
00000000° EF 9F 002F9 PUSHAB DBGS$CS_MACRO : 
7 DOD OOOFF PUSHL R7 : 
000000006 00 3 FB 00301 CALLS #3, DBGSNMATCH : 
01 0 pI 0 08 CMPL = RO, #1 : 
4 12 0B BNEQ 3 3 
68 04 99 0D CLRL (NOUN_NODE ) : 0851 
7D 11 0030F BRB 38$ : 
02 oD 99 11 328: PUSHL @# > 0853 
00000000° ai 9F 00313 PUSHAB DBG$CS_FORTRAN ; 
7 DD 00319 PUSHL ; 
000000006 00 $6 FB 9 1 CALLS +e DBGSNMATCH : 
g 12 00 BNEQ 336 ; 
075A 31 6 BRW 130$ : 
02 bb A 33$ PUSHL @ : 0856 
00000000' gf F 00 s PUSHAB DBGSCS_BLISS ; 
7 dD 00 PUSHL R : 
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16-Sep-19 
127808 -138 
000000006 00 8 Fe 0 : 
12 00 
7 A BBE cg 
00000000° EF oF 0 43 j 
000000006 00 93 FB 0 4D 
63 12 00357 
af 5D 03s 35$ 
jmwwrs 0 Bd 
nanan 85 AF bose 
03 12 00370 
0760 31 00372 
02 DD 00375 36$: 
00000000' EF 9F 00377 
57 DD 0037D 
mero $5 of Boat 
05 12 00389 
68 05 00 00388 37$: 
73 11 OO38E 38$: 
02 DD 00390 39$: 
00000000" EF 9F 00392 
57 DD 00398 
ee 8S AF Ooaat 
05 12 003A4 
be 06 00 0036 
76 11 003A9 
01 OD O03A8 40S: 
cocoon sy ob Saat 
pepe le | 8S OF posne 
03 12 003BF 
0608 31 003C1 
02 DD 003C4 41$: 
00000000' EF i : C6 
000000006 00 03 FB Ose 
03 if} 0308 
68 : DO 003DA 
42 11 00300 
04 00000000' EF Es 0 DF 42$: 
11 11 00 ES 
02 po 0 EA 43S: 
00000000° Ef F 0 EC 
000000006 00 03 FB OO3F4 
01 D1 OO3FB 44$: 
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DEBUG. SRC JDBGNSET.B32;1 
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19 
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#3 
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pgGSCS_ COBOL 
a BGSNMATCH 
RO, #1 

3 
13 
We 


#3, DBGSNMATCH 
#1 


#3, DBGSNMATCH 
RO #1 

#5, (NOUN_NODE) 
45$ 


We 

BOSSCS PASCAL 
#3, DBGSNMATCH 
RO, #1 


40 
#6, (NOUN_NODE) 
48$ 
#1 

DaGSCS_¢ 

#3, DBGSNMATCH 
RO, #1 

41 

j3es 
DBGSCS_RPG 

#3, DBGSNMATCH 
RO, #1 
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#8, (NOUN_NODE) 
DBGSGL_DEVELOPER, 43S 
44$ 

ae 

DBGSCS_ADA 

#3, DBGSNMATCH 

RO. #1 
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DBGNSET 1b-Se -1984 01:58:1 AX-11 Bliss-32 V4.0-742 Page 46 
vivant a aets b:38:) DEBUG. SRC JDBGNSET.B32;1 ’ (3) 
4 
a 


9 
1 
6s 
g, (NOUN.NODE) 


05 13 3F BNEQ ; 
68 9 D 40 MOVL + 0879 
fs 11 00403 45$: BRB 4 : 
03 DD 00405 46$:  PUSHL # + 0881 
00000000' EF OF 0407 PUSHAB DBGS$CS_UNKNOWN : | 
7 DD 0040D PUSHL ; 
000000006 00 9 FB O040F CALLS #3, DBGSNMATCH : 
01 D1 0416 CMPL =e RO, #1 : 
0 13 0041 BEQL «6s 7$ : 
098F 31 0041B BRW 169$ : 
68 OA bo O41E 47$: MOVL #10 (NOUN_NODE) + 0882 
OcBD 31 04 1 48$: BRW 213$ : 
02 DD 00424 49$: PUSHL #2 + 0901 
00000000' EF OF 904 6 PUSHAB DBGSCS_LOG ; 
7 DD 0042C PUSHL ; 
000000006 00 03 FB O042E CALLS #3, DBGSNMATCH : 
01 50 01 00435 CMPL = RO, #1 : 
17 12 004 38 BNEG : 
01 a9 05 90 0043A MOVB #5, ‘1(R9) : 0903 
Oc AC DD 0043€ PUSHL MESSAGE_VECT + 0906 
7E 57 70 00441 MOV. —s-R7, =(S > 0905. 
000000006 00 03 FB 00444 CALLS #3, DBGSNSAVE_FILESP F 
D3 50 Es 00448 50$:  BLBS RO, 48$ : 
OcBC 31 0044E 51$: BRW 212$ + 0908 | 
03 DD 00451 52$:  PUSHL #3 > 0911 
00000000' EF 9F 00453 PUSHAB DBG$CS_MARGINS ; 
7 DD 00459 PUSHL ; 
000000006 00 03 FB 00458 CALLS #3, DBGSNMATCH : 
01 50 01 00462 CMPL =e RO, #1 : 
03 13 0046 BEQL 538 ; 
00B3 31 00467 BRW 60$ : | 
01 a9 14 90 0046A 53$: MOVB #20, 1(R9) : 0917 
01 DD 0046€ PUSHL + 0926 
00000000" EF 9F 00470 PUSHAB DBGSCS_COLON ; | 
57 DD 00476 PUSHL R : 
000000006 00 03 FB 00478 CALLS #3, DBGSNMATCH : 
1B 50 €9 0047F BLBC = RO. 54 ; 
Oc AC DD 00482 PUSHL MESSAGE_VECT > 0934 
04 ag 9F 0048 PUSHAB RIGHT_MARGIN ; 0933 
57 DD 00488 PUSHL R ; 
000000006 00 03 FB 0048A CALLS #3, DBGSNSAVE_DECIMAL_INTEGER ; 
BA 0 £9 00491 BLBC Osa ; 
52 000000006 00 DO 0494 wovL =D 6SSRC_LEFT_MARGIN, LEFT_MARGIN : 0937 
OC AC DD 0049D 54$:  PUSHL MESSAGE_VECT : §94 
04 ag 9F 004A0 PUSHAB RIGHT_MARGIN > 0942 
57 DD O4A3 PUSHL R ; 
000000006 00 03 FB 004A CALLS #3, DBGSNSAVE_DECIMAL_INTEGER F 
OF E9 O04AC BLBC ~=—_«aRO,_‘ 518 F 
01 DD OO4AF PUSHL : 0950 
00000000' Ef F 00481 PUSHAB DBGSCS_COLON ; 
7 DD 00487 PUSHL : 
000000006 Q 03 FB 00489 CALLS #3, DBGSNMATCH ; 
E cg BLBC ; 
2 6 DO 004C MOVL § RIGHT_MARGIN, LEFT_MARGIN : 0957 
1 DD O4¢6 PUSHL : 0958 
00000000" EF 9F 004¢ PUSHAB DBGSCS_CR : 
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m1 
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19-88-1382 04:38:38 DEBUG. SRCJDBGNSET.B32;1 3) 
57 DD 004C¢ PUSHL 7 F 
000000006 00 03 FB 4D CALLS #3, DBGSNMATCH : | 
9 0 €9 0040 BLBC =_ RO : 
6E 000000006 09 DO O4DA MOVL D GSSRC_RIGHT_MARGIN, RIGHT_MARGIN + 0960: 
Oc aC OD Oce 55$: PUSHL MESSAGE_VECT + 0965 
04 AE 9F 004E6 PUSHAB RIGHT_MARGIN + 0964 
57 DD 004E9 PUSHL : 
000000006 00 03 FB O4E CALLS #3, DBGSNSAVE_DECIMAL_ INTEGER : 
06 0 : O4F BLBS RO, 58$ ; 
OBES 31 004F5 56$: BRW 212$ + 0967 
52 of DO 0048 278: MOVL #1, LEFT_MARGIN + 0976 
6E 2 Di 004FB 58s: CMPL FT_MARGIN, RIGHT_MARGIN + 0984 
14 19 OO4rE BLSS ; 
000000006 00 00 FB 0050 CALLS #0 DBGSNSHOW_MARGINS + 0987 | 
00028E10 8F dD 00507 PUSHL #16744 + 0988 
000000006 00 o4 FB 00500 CALLS #1, LIBS$SIGNAL ; 
6 2 D0 00514 59$:  MOVL -LEFT_MARGIN, (NOUN_NODE) + 0994 
Oc AB of DO 00517 MOVL RIGHT_MARGIN, 12(NOUN_NODE) 3 0995 | 
0 11 00518 BRB 61$ : 0553, 
03 DD 0051D 60$: -PUSHL #3 + 0999 | 
00000000' EF 9F 0051F PUSHAB DBGS$CS_MAX_SOURCE_FILES ; 
7 Dd 00525 PUSHL 3 
000000006 00 03 FB 00527 CALLS #3, DBGSNMATCH : 
01 50 01 0052€ CMPL ~=sRO. #1 : 
1D ff 00531 BNEQ ; 
01 «Ad 13 90 00533 MOVB #19, 1(R9) + 100 
0c AC DD 00537 PUSHL MESSAGE _VECT + 100 
08 AE 9F 0053A PUSHAB MAX_FILES : 100 
57 DD 00530 PUSHL + 100 
000000006 00 03 FB 0053F CALLS #3, DBGSNSAVE_DECIMAL_INTEGER ; 
AC 50 £9 00546 BLBC : ; 
68 04 AE b6 00549 MOVL  MAX_FILES, (NOUN_NODE) > 1008 | 
0891 31 00540 61$:  BRW 2138 : 0553. 
01 DD 09550 62$:  PUSHL #1 : 1011 
00000000' EF 9F 00558 PUSHAB DBGSCS_MODE F 
57 od 0055 PUSHL ; 
000000006 00 03 FB 0055A CALLS #3, DBGSNMATCH ; 
01 50 01 00561 CMPL—sséRO, #1 : 
03 13 00564 BEQL 63% : 
0197 31 00566 BRW 87$ : 
01 Ag 06 90 00569 63$: MOVB #6, 1(R9) : 1032) 
01 DD 00560 64$:  PUSHL #1 + 1042 
00000000° EF OF O56f PUSHAB DBGS$CS_BINARY : 
7 OD 5 PUSHL R : 
900000006 00 03 FB 00577 CALLS #3, DBGSNMATCH ; 
01 0 D1 O57 CMPL sO. #1 ; 
6 if 581 BNEG 6 : 
68 1 g 0583 MOVL #1, (NOUN_NODE) : 1043 
0089 31 BRW 70$ ; 
3 pp 65$:  PUSHL @# > 1045 
00000000° gf F 588 PUSHAB DBGSCS_DEFAULT ; 
7 0D 00391 PUSHL ; 
000000006 00 93 FB 0595 CALLS #3, DBGSNMATCH ; 
00890 euch eas 
7. 8 8 059F MOVL ss (NOUN_NODE ) > 1046 
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127808 - 1 3b 03:99:38 DEBUG. SRC IDBGNSET.B32:1 9 (3) 
0089 31 : n BRW 72$ ; | 
1 gp AS 66$: PUSHL @# : 1048 
00000000" EF 9F 005A7 PUSHAB DBG$CS_DECIMAL : 
7 DD 005AD PUSHL : 
000000006 00 03 FB OOSAF CALLS #3, DBGSNMATCH : 
01 D1 286 CMPL =s RO, #1 : 
06 if 058 BNEG 6 : 
66 0 p 0588 MOVL #3, (NOUN_NODE) + 1049. 
0088 31 0058 BRW 74§ : | 
01 DD 005Ci 67$:  PUSHL #1 + 1051 
00000000' EF 9F 005¢3 PUSHAB DBGSCS_HEXADECIMAL : 
7 dd 005¢9 PUSHL R : 
000000006 00 93 FB 005¢ CALLS #3, DBGSNMATCH : 
01 0 D1 0050 CMPL = RO, #1 : 
06 12 005D BNEQ 68 : | 
68 04 06 00507 MOVL #4, (NOUN_NODE) + 1052. 
0087 31 005DA BRW 76$ : | 
01 DD 005DD 68$:  PUSHL #1 + 1054 
00000000' EF OF OO05DF PUSHAB DBGSCS_KEYPAD : | 
7 DD 005€5 PUSHL R7 : | 
000000006 00 03 FB 005E7 CALLS #3, DBGSNMATCH : 
01 50 01 005EE CMPL =sRO., #1 : | 
06 12 005F1 BNEQ 69 : | 
68 OA 00 005F3 MOVL #10, (NOUN_NODE) + 1055. 
0086 31 005F6 BRW 78$ ; | 
03 DD 005F9 69%: PUSHL #3 + 1057. 
00000000' EF 9F 005FB PUSHAB DBG$CS_NOKEYPAD : | 
7 DD 00601 PUSHL R7 : | 
009000006 00 03 FB 00603 CALLS #3, DBGSNMATCH ; 
01 50 01 0060A CMPL)séRO., #1 : 
06 12 0060D BNEQ 71 : | 
68 0B 06 0060F MOVL #11, (NOUN_NODE) > 1058) 
0085 31 00612 70$: BRW 80$ F 
05 DD 00615 71$:  PUSHL #5 : 1060 
00000000' EF 9F 00617 PUSHAB DBG$CS_NOSCREEN ; | 
7 DD 00610 PUSHL R7 : 
000000006 00 03 FB O061F CALLS #3, DBGSNMATCH : 
01 50 01 00626 CMPL =saRO.. #1 ; 
05 12 00629 BNEQ ; 
68 09 D0 06 B MOVL #9, (NOUN_NODE) + 1061 
19 11 006 72 BRB 74$ ; 
01 DD 00630 73$: PUSHL #1 > 1063 
00000000" EF 9F 906 PUSHAB DBGSCS_NOSYMBOLS F 
7 DD 06 PUSHL R7 ; 
000000006 00 3 FB 63A CALLS #3, DBGSNMATCH ; 
01 0 »D 00641 CMPL ~=siRO. #1 : 
05 if; 0644 BNEQ F 
68 06 D 0646 MOVL #6, (NOUN_NODE) + 1064 
6A 11 00649 74$: BRB 82$ ; 
01 po 0648 75$:  PUSHL @# > 1066 
00000000° Ef F 0064 PUSHAB DBG$CS_OCTAL : 
7 OD 0065 PUSHL 3 
090000006 00 9 FB 6 CALLS #3, DBGSNMATCH ; 
1 D1 0065¢ CMPLSeRO.. #1 ; 
: 12 0065F BNEQ 7 ; 
68 2 DO 00661 MOVL we (NOUN_NODE) + 1067 
6D 11 00664 76%: BRB a5$ ; 
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1 DEBUG. SRC JDBGNSET.B32;1 


1 
2 
ri} 
DBGSCS_SCREEN 
#3, DBGSNMATCH 
R #1 

is 
85§ 
#1 
BEGSCS_SYMBOLS 
R 


#3, DBGSNMATCH 
RO, #1 


(NOUN_NODE) 


81 
#5, (NOUN_NODE) 
a5§ 


#1 
DBGSCS_G_FLOAT 
#3, DBGSNMATCH 
RO, #1 


8 
#12, (NOUN_NODE) 
85$ 


#3 
DBGSCS_NOG_FLOAT 
#3, DBGSNMATCH 
RO, #1 

84$ 

169$ 

#13, (NOUN _NODE ) 
DBGSCS_COMMA 

#3, DBGSNMATCH 
RO. 86$ 


152$ 

8(R8), LINK 

#1, DBGSGET_TEMPMEM 
RO, NOUN_NOB 
NOUN_NODE, (LINK) 
64$ 

a4 

DBGSCS_MODULE 

#3, DBGSNMATCH 

RO #i 
88$ 
103$ 
ALLOCATE_FLAG 
NOWALT_FCAG 
DBGSCS_SLASH 
#3, DBGSNMATCH 
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:19 AX=11 BL A igee ze V4.0-742 
:21 DEBUG. SRC JDBGNSET.832;1 
RO, 94$ 

#4 

DBGSCS_ALLOCATE 


#3, DBGSNMATCH 


#1. ALLOCATE_FLAG 
89§ zs 


A 

peescs_ ALL 
+3 peers 

4 ALL FLAG 
DBGSGL_DEVELOPER, 93$ 
169$ 


# 
DBGSCS_NOWAIT 

a3, DBGSNMATCH 

“i, NOWAIT_FLAG 
(NOWAIT_FLAG)CALLOCATE_FLAGJ, 4(R9) 
ALL_FLAG, 95$ 

#8,~1(R95 

213$ 

DBG$GB_LANGUAGE, #7 

96$ 


99$ 
4(R7), POINTER 

(R7), LENGTH 
POINTER, DBG$GL_UPCASE_COMMAND_PTR 
POINTER, DBGSGL_UPCASE_COMMAND_PTR+4 
B «ACN 
#164706 
#3, LIBSSIGNAL 
3(R6) 
a4, RO, -(SP 

i, DBGSGET_ TEMPMEM 
ppeser _OPCASE_COMMAND_PTR, Re 
DBGSGL “ORIG Comme ND_PTR, R2 MP_PTR 
LEN (TEMP PTR), ~ (NEW POINT 
als, "4 (LENGTRD (NEG POINTER) 


LEN noth ere _DESC 
NEW. PoiNteR: STG_DESC +4 


aE Ssace VECT 
wOUN NOBE 


G_BESC 
35 “DBGSNSAVE_STRING 
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DBGNSET 16-Sep-1984 01:58:19 AX-11 Bliss-32 v4.0-742 Page 51 
"06-000 14-Sep-1984 12: 78: :21 DEBUG. SRCJDBGNSET .B32;1 . (3) 
1D 50 £9 0819 BLBC RO, 100$ : 
20 Oc AE 081 MOVZWL STG_DESC, RO + 1264 
0 26 C2 008 SUBL LENGTH RO : 
| 67 0 A 008 ADDWe RO, (RP) : 
04 A? 30 C2 00826 SUBL R0 4(R7) + 1266 
13 11 OOBOA RB 10/$ + 1215 
0c AC pp 008 C 99$:  PUSHL MESSAGE VECT + 1275 
7E 57 7D O0BOF MOVQ. —s-R?, =(SP) : 
000000006 00 03 FB 00832 CALLS #3, DBGSNSAVE_STRING ; 
03 0 ; 00839 100$: BLBS RO. 101$ : 
089—E 31 0083c BRw 212$ : 
01 po OO83t 101$: PUSHL #1 + 1282 
00000000° EF F 00841 PUSHAB DBG$CS_COMMA : 
7 DD 00847 PUSHL 7 : 
000000006 00 03 FB 00849 CALLS #3, DBGSNMATCH : 
16 50 €9 00850 BLBC : 
58 08 A8 SE 00853 MOV B(RB), LINK + 1289 
04 DD 00857 PUSHL : 1290 
000000006 00 01 FB 00859 CALLS » DBGSGET TEMPMEM : 
58 50 00 00860 MOVL Rd. NOUN : | 
68 58 9 00863 MOVL NOUN NODE (LINK) 3 1291. 
FF2C 31 00866 BRW 95$ ~ + 1207 
08 AS D4 00869 102$: CLRL  8(NOUN_NODE) : 1298 
01 «a9 07 90 0086C MOVE #7, :1(R9) + 1299 
086E 31 00870 BRW 213$ : 0553 
01 DD 00873 103$: PUSHL #1 + 1304 
00000000" EF 9F 00875 PUSHAB DBG$CS_OUTPUT : 
57 DD 00876 PUSHL R7 : 
000000006 00 03 FB 0087D CALLS #3, DBGSNMATCH : 
01 50 D1 00884 CMPL =e RO : 
03 13 00887 BEQL Sols” : 
0108 31 00889 BRW 119 : 
01 a9 09 90 0088C 104$: MOVB #9, 1(R9) + 1333 
01 DD 00890 105$: PUSHL #1 + 1343 
00000000" EF 9F 00892 PUSHAB DBG$CS_LOG : 
57 DD 00898 PUSHL R7 ; 
000000006 00 03 FB 0089A CALLS #3, DBGSNMATCH ; 
01 50 D1 OOBA1 CMPL SRO. #1 : 
06 12 008A4 BNEQ 10 ; 
68 01 p60 008A6 MOVL #1, (NOUN_NODE) > 1344 
0085 31 008A9 BRW 112$ ; 
03 DD OOBAC 106$: PUSHL # > 1346 
00000000' Ef 9F OOBAE PUSHAB DBG$CS_NOLOG ; 
7 DD 90884 PUSHL ; 
000000006 00 03 FB 00886 CALLS #3, DBGSNMATCH ; 
01 0 pI 00880 CMPL =soRO.. #1 ; 
05 12 008C¢ BNEG  107$ ; 
68 02 DO 008C MOVL 2 (NOUN_NODE) > 1347 
19 11 008C BRB 108$ : 
01 po O8C7 107$: PUSHL @# > 1349 
00000000' Ef F 008C9 PUSHAB DBGSCS_SCREEN_LOG ; 
7 DD OOBCF PUSHL ; 
000000006 00 93 FB 00801 CALLS #3, DBGSNMATCH ; 
01 D1 00808 CMPL SRO. : 
0 if O8DB BNEG =: 109$ ; 
ra. 03 pO 008DD MOVL #3, (NOUN_NODE) : 1350 
6A 11 OO8EO 108%: BRB 114s ; 


a as ae 
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ae ee aey DEBUG. SRCJDBGNSET.B32;1 . (3 
03 DD OOBE2 109$: PUSHL #3 : 1352 
00000000' EF doses PUSHAB DBGSCS_NOSCREEN_LOG : 
000000006 00 Q3 FB OOBEC CALLS #3, DBGSNMATCH : 
01 g D1 OO8F CMPL 0; #1 : 
0 if bO8r6 BNEQ 16s : 
68 04 DO 008F8 MOVL #4, (NOUN_NODE) + 1353 
6D 11 O08FB BRB 117$ : 
01 DD OOBFD 1108: PUSHL #1 : 1355 
00000000' Ef OF OOBFF PUSHAB DBG$CS_TERMINAL : 
7 DD 00905 PUSHL 7 : 
000000006 00 03 FB 90907 CALLS #3, DBGSNMATCH : 
01 0 01 0090E CMPL =sRO. #1 : 
05 12 00911 BNEQ ‘11 : 
ra: 05 pO 00913 MOVL § #5, (NOUN_NODE) + 1356 
32 11 00916 BRB 117$ : 
03 DD 00918 111%: PUSHL #3 : 1358 
00000000' EF 9F OO91A PUSHAB DBGS$CS_NOTERMINAL : 
7 DD 00920 PUSHL R : 
000000006 00 03 FB 00922 CALLS #3, DBGSNMATCH : 
01 50 D1 00929 (MPL = RO. #1 : 
05 12 0092c BNEQ 1138 : 
68 06 00 009¢e MOVL § #6, (NOUN_NODE) > 1359 
37 11 00931 112$: BRB 117$ : 
01 DD 00933 113$:  PUSHL #1 + 1361 
00000000' EF 9F 00935 PUSHAB DBGS$CS_VERIFY : 
57 DD 00938 PUSHL : 
000000006 00 03 FB 0093p CALLS #3, DBGSNMATCH F 
01 50 D1 00944 (MPL =s RO, #1 : 
05 12 00947 BNEQ 115$ : 
bE 07 DO 00949 MOVL #7, (NOUN_NODE) : 1362 
1¢ 11 0094C 114$: BRB 117$ ; 
03 DD 0094E 115$:  PUSHL #3 > 1364 
00000000' EF 9F 00950 PUSHAB DBGS$CS_NOVERIFY : 
7 DD 00956 PUSHL 7 ; 
000000006 00 03 FB 00958 CALLS #3, DBGSNMATCH : 
01 50 D1 0095F CMPL = RO, #1 : 
03 13 00962 BEQL 116$ : 
0446 31 00964 BRW 169$ : 
ee 08 DO 00967 116$: MOVL #8, (NOUN_NODE) > 1365 
01 DD 0096A 117$: PUSHL # > 1384 
00000000' Ef 9F 0096C PUSHAB DBGSCS_COMMA : 
7 DD 00972 PUSHL ; 
000000006 00 93 FB 00974 CALLS #3, DBGSNMATCH : 
03 0978 BLBS RO. 118$ ; 
02A3 31 0097E BRW 158$ : 
52 08 AB 9E 00981 118$: MOVAB &(RB), LINK : 139) 
4 00 00963 PUSHL #4 : 1392 
000000006 00 1 FB 00987 CALLS #1, DBGSGET_TEMPMEM : 
58 0 dO 0098E MOVL RO. NOUN _N : 
62 8 0 0991 MOVL NOUN _NODE , (LINK) > 1393 
FEF9 31 00994 BRW 105$ : 1338 
01 pd 0997 119$: PUSHL > 1404 
00000000' Ef F 00999 PUSHAB DBGS$CS_RADIX ; 
7 DD 0099F PUSHL R ; 
000000006 00 95 FB OO9A1 CALLS #3, DBGSNMATCH ; 
01 0 D1 009A8 CMPL sO, #1 ; 


<9 
om 


Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Oe OH Oe we Oe Be Se OH Oe we Oe Oe Oe OH Oe Oe Oe Oe OH Oe ee Oe OH Oe Bees SHS ee Be ee Be Beas 


-—-—- -- - -- 


| 
DBGNSET 
vOe~000 


| 
| a 
| 
| 


ron 


vm 


ep-1984 12: 


S aus 
@ 
m 
=) 
- 


01 Ag 
00000000" 
000000006 69 


oO 
oOo 


oO 
— 
OWOVMNOOOWO P FP SWOMN FS OMIOVIN OO QDNIOVIMN OW QOMOVIM OM COMOVIMMO F MOVINO— FO 


8 
122$: PUSH 
00000000' = ty 
000000006 00 
OC AB 


00000000" 
000000006 00 


Oc AB 


020-90 -9 T0 09 - 9 9 19 OOWM 19 OU OW 
COOOCOCOCCOOCOVOOOCOOOOOOOOOCOOCOO 
pepesofolejeleleleleleleleleleleleleleleleleleleleola) 
9 DO FON MOVIN DOVUIMOO FOO 

o 
> 
- 
wn 


00000000" 
000000006 00 


Ss CORN HMMMMMOCTCVIOOOOWWWOW»> 


01 Ad 


00000000" 
000000006 00 


000280D0 
000000006 00 


2 128%:  PUSHL 
000000006 00 
OE AE 010E 

OC AE 
10 AE 01 
0c 


00028238 
000000006 00 


VO *NWOWS -99 ODO "9 "ON D9 10 ON D9 10 SON DMO 10 SOW "TIO ww 


—o 


00000000° 
000000006 00 


VOW NT UW SS MOOT SS NI MOWING SO PDOWN MN SNP OWN TNS —AOWNT Wow wv" @ Ow 


$9 "90 O90 - "SOTO O0O0OT "9 -] "OMS OO 0-O "9 


m—-wo"o 


. 


2 
-1984 01:58: 
> +5: 


2:>—— fh 

=—MmLn — oOo 
NOOO 
PM 


‘d 

BOSSES _1APUT 
#3, DBGSNMATCH 
RO, #1 


124$ 
#1, 12(NOUN_NODE) 
121$ 


#2 
DBGS$CS_OUTPUT 
#3, DBGSNMATCH 
RO, #1 


126$ 

#2, 12(NOUN_NODE) 
eis 
DBG$CS_OVERRIDE 
R7 


#3, DBGSNMATCH 
RO. #1 

127$ 

#28, 1(R9) 
121§ 

#1 

DBGS$CS_CR 

R7 


#3, DBGSNMATCH 
RO 


64408 
LIBSSIGNAL 
S$ 


G$CS_BINARY 
6 DBGSNMATCH 
RO. #t 

134s 


See Se Se Se Se Oe Oe Se Oe Ge Se See Se Be Se Be Be Be Os Be Be Be Oe Se Be Bs Be Be Bete Se Se Se Se Be Se Se Be Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Be Se Be 


1425 


1426 
1428 


— SSS sss _ 
; BeBe Be Be Oe Oe Oe Oe Oe Oe Ge Be Oe Se Be Be Se Se Se Se Se Se Oe Se Oe Oe ee Be ee SH Oe Be Oe BeBe Se Be Oe woe Se Oe Se OH Oe ee Se Be Be BH Oe Be Oe Oe Be Se oe 


| DBGNSET 
v04-000 


000000006 


000000006 


000000006 


000000006 


000000006 


01 


000000006 


000000006 
04 


000600006 


68 


00 
06 
Ag 


00 


00000000' 


00000000" 


00000000" 


00000000" 


00000000' 


00000000" 


00000000" 


oO 
Nm 


oO 
“ 
WMO ONOVMN OVO MOOS MOVIMOMODW OMOVIN O “DOMOUIM OO OMOVIMOMOOMOVINOCO 


OS NTF OWI OWI SB MOI I MION F WOWW I 29 FE NOW NINO IT PU NNOW IMO 


2 
IESriste 


4 


tn 


A 
A 
A 
A 
A 
ASS 
A 
A 


wt BOOOOOMN™T 
—-@woo 


—nONSODVYVWN"S 


SOOCOCOCOOCOOCOOOCOCOOOOCOO OOO SOOOOOCOCOOCOOOCOO COO OOCOOCSOOOSOSOO OOOO OOOOOOOoOO 


m 
=> 


[08090-00090 "9 ODO “9 ON D9 9 OW D9 19 SON WO 10 ON -- DO NO ON —-- WO "0" 
BWOWWOIWOOVOOOWOWVIOIIVIOIVIOWIOINr>r>r> 


ono -OMTO OOM SOOT O90 NO OOWOW"9O "SO OU 90 oO NTO OU 90 -oO NO 00-90 -OoO "TO 00-9 


, ee 
rPWwew 


130$: 


131$: 


1418: 


719 AX=-11 Bliss-32 V4.0-742 
21 DEBUG. SRC JDBGNSET.B32;1 


#1, (NOUN_NODE) 


1 $$ 
DBGSCS_DEFAULT 
#3, DBGSNMATCH 
RO. #1 

i? 
139s 
# 
DEGSCS_DECIMAL 
#3, DBGSNMATCH 
RO. #1 


(NOUN_NODE) 
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#3 
i 
DBGS$CS_HEXADECIMAL 


#3, DBGSNMATCH 
RO, #1 
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3 
#4, (NOUN_NODE) 
135$ 
e 
DBGSCS_OCTAL 
#3, DBGSNMATCH 
RO #1 
138$ 


169$ 
#2, (NOUN_NODE) 
213$ 


r) 
BESees SCOPE 
#3, DBGSNMATCH 
RO, #1 


144$ 

#10, 1(R9) 
DBGS$CS_SLASH 
#3, DBGSNMATCH 
RO. 142$ 
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#3, DBGSNMATCH 
RO. 141$ 

#1. 4(R9) 
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AX=-11 Ot igs =32 V4.0-74 
DEBUG. SRC JDBGNSET .B32; 


6 
$SIGNAL 


193 
:21 
e 
#1665 
#3, L 
148 
4(R9) 
ME SSAG AGE ayeCT 
“3. DRRSNPARSE.. SCOPE_LIST 
50$ 
#2 

DBGSCS_ SEARCH 
#3, DBGSNMATCH 
RO. #1 

145$ 

153$ 

21, 1(R9) 
DBGSCS_ALL 

#3, DBGSNMATCH 
RO. #1 


147$ 

#1, (NOUN_NODE) 
154$ 

# 

DBGSCS_IDENT 
#3, DBGSNMATCH 
RO, #1 

14 
#4 
154s 


#1 

DBGSCS_NEXT 
#3, DBGSNMATCH 
RO, #1 


(NOUN_NODE) 


14 
#2 
154s 
# 

D G$CS_STRING 

#3, DBGSNMATCH 

RO # 

156$ 

169$ 

iS, (NOUN_NODE) 

D G$CS_COMMA 

#3, DBGSNMATCH 
8(RB), LINK 

#1, DBGSGET_TEMPMEM 


(NOUN_NODE) 
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1a-sep-19 4 }:39:38 DEBUG. SRC JDBGNSET .B32;1 ° (3 
58 50 DO 00C1B MOVL = RO, NOUN_NODE ; 
6 0 CiE MOVL NOUN_NODE, (LINK) 3 1583 
FF69 31 0021 BRW 146$ : 1539 
08 As ps C24 152$: CLRL «NOUN, NODE) : 1590 
0487 31 00C27 RWW 13$ : 0553 
02 bp OC2A 153$: PUSHL #2 : 1597 
00000000' EF F 00C2C PUSHAB DBGSCS_SOURCE : 
7 OD 00C32 PUSHL R : 
000000006 00 03 FB 00034 CALLS #3, DBGSNMATCH : 
: nt a ane : 
0086 3! Oct BRW 159$ : 
01 a9 1 0 00C43 154$: MOVE #18, 1(R9) + 1599 
01 DD 00C47 PUSHL #1 + 1604 
00000000' EF 9F 00C49 PUSHAB DBG$CS_SLASH ; 
7 DD OOC4F PUSHL R7 : 
000000006 00 03 FB 00C51 CALLS #3, DBGSNMATCH : 
5E 50 €9 00¢58 BLBC = RO, ~158$ ; 
04 dD 00C5B PUSHL #4 + 1617 
00000000' EF 9F 00C5D PUSHAB DBG$CS_MODULE ; 
7 DD 0063 PUSHL : 
000000006 00 03 FB 00C65 CALLS #3, DBGSNMATCH ; 
‘ gt Bo doer Buh, gps 88 1 
00000000' EF 9F 00C71 PUSHAB DBG$CS_EQUAL F 
7 DD 00C77 PUSHL R7 : 
000000006 00 03 FB 00€79 CALLS #3, DBGSNMATCH ; 
03 one Eg 00¢80 155$: BLBS RO, 156$ F 
OC AC DD 00C86 156$: PUSHL MESSAGE VECT : 1639 
OC AE 9F 00C89 PUSHAB MODNAMEPTR : 
57 DD bOcBC PUSHL R ; 
000000006 00 03 FB OOCBE CALLS #3, DBGSNSAVE_STRING ; 
" owed $F goes Bo Mis 
08 AE DD O0C9B 157$: PUSHL MODNAMEPTR ; 1648 
00000000G 00 gt FB OOC9E CALLS #1, DBGSSTA_GETSOURCEMOD 3 
06 AB 0 pO O0CAS MOVL RO. 4(NOUN_NODE) ; 
Oc 12 00CA9 BNEG 158$ : 1654 
08 AE ODD OOCAB PUSHL MODNAMEPTR > 1658 
01 DD OOCAE PUSHL : 1657 
00028168 BF bp 90¢B0 PUSHL #164328 ; 
0226 31 00CB6 BRW 183$ ; 
0c AC bb b9¢B9 158$:  PUSHL MESSAGE VECT + 1668 
7E 57 70 OOCBC MOVO. = R?, =(SP) : 
000000006 00 03 FB OOcBE CALLS #3, DBGSNGET_DIR_LIST F 
F782 31 OOCC6 BRW 50$ : 
01 BD occs 159$: PUSHL #1 : 1677 
00000000' Ef F OOCCB PUSHAB DBGSCS_STEP : 
7 DD 00CD1 PUSHL ; 
000000006 00 3 FB O0CD3 CALLS #3, DBGSNMATCH ; 
" § 8D boreD GNEH Neds 
01 «a9 B ¥6 OCDE MOVB = #11, :1(R9) : 1679 
4 11 cE BRB 1 : 1680 
04 00000000° gf E8 OOCES 160$:  BLBS DBGSGL_DEVELOPER, 161$ > 1686 
0 04 OOCEC CLRL sR ; 
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v04-000 1229 08- 1 3be 03:38:38 DEBUG. SRCJDBGNSET.B32;1 ’ (3) vi 

7.«11 Oc BRB gas ; : 

02 po CFO 161$: PUSHL # + 1687 : 

00000000" EF 9F OOCF PUSHAB DEGSCS_TASK : : 

7 DD OOCF PUSHL R : ; 

000000006 00 3 FB OOCFA CALLS #3, DBGSNMATCH : ; 
01 0 pi ty) 1628: CMPL RO. #1 : 1686 ; 

11 12 00004 BNE 93s : ; 

01 a9 1E 90 00006 MOVB #30, 1(R9) + 1689 ; 

0280 8F BB OODOA PUSHR #*M<R7,R9> + 1690 : 

000000006 00 é FB ODOE CALLS #2, DBGSNPARSE_SET_TASK : ; 
11 0001 BRB 164$ : 0553. : 

4 po 0017 163$: PUSHL #4 + 1696. ; 

00000000' EF F 00D19 PUSHAB DBGS$CS_TERMINAL : : 

7 DD OODIF PUSHL : ; 

000000006 00 O3 FB 00021 CALLS #3, DBGSNMATCH : ; 
01 0 01 00028 CMPL = RO, #1 : ; 

12 2 00028 BwtQ §©—-:16 $$ : : 

01 a9 19 9 90D¢0 MOVB #25, 1(R9) + 1698 ; 

0280 8F BB 00D31 PUSHR #*M<R7,R9> + 1699. ; 

000000006 00 02 FB 00035 CALLS #2, DBGSSCR_PARSE_SETTERM_CMD : ; 
O3A2 31 O0D3C 164%: BRW 213$ : 0553 ; 

01 DD OOD3F 165$:  PUSHL #1 : 1705 : 

00000000' Ef 9F 00041 PUSHAB DBG$CS_TRACE : | ; 

7 DD 00047 PUSHL R7 : F 

000000006 00 03 FB 00D49 CALLS #3, DBGSNMATCH : : 
01 50 p1 00D50 CMPL ~=séRO.. #1 : : 

07 12 00053 BNEQ 167% : : 

01 «a9 OE 90 00055 MOVB #14, 1(R9) : 1707 ; 

0332 31 00059 166$: BRW 205$ + 1710 : 

02 DD 00D5C 167$:  PUSHL #2 + 1715 3 

00000000" EF 9F OODSE PUSHAB DBG$CS_TYPE ; ; 

57 DD 00D64 PUSHL : : 

000000006 00 03 FB 00066 CALLS #3, DBGSNMATCH ; F 
01 50 D1 00D6D CMPL =soRO. #1 ; ; 

03 13 00070 BEQL =: 168$ ; : 

O2FF 31 COD 72 BRW 204$ ; | 3 

04 DD 00075 168$:  PUSHL #4 + 1746 ; 

000000006 00 gi FB 00D77 CALLS #1, DBGSGET_TEMPMEM ; | 3 
52 0 DO 00D7E MOVL RO. LENGTH ; | 3 

08 As 52 00 00081 MOVL LENGTH_NODE, 8(NOUN_NODE) 3 1747 3 

01 DD 00085 PUSHL # : 1751 3 

00000000' Ef 9F 00D87 PUSHAB DBGS$CS_SLASH ; | : 

000000006 00 5 PB Oopar CALLS #3, DBGSNMATCH : 
41 93 £8 tt BLBC —E—s«aRO. rats : ; 

01 DD 90099 PUSHL : 1757 : 

00000000' Ef 9F 00098 PUSHAB DBGSCS_OVERRIDE ; 3 

7 DD OODAI PUSHL ; : 

000000006 00 03 FB ODA3 CALLS #3, DEGSNMATCH ; : 
27 E ODAA BLBS RO. 172$ ; : 

01 DD OODAD 169$: PUSHL 41 : 1761 : 

00000000" EF 9F OODAF PUSHAB DBGSCS_CR ; : 

7 DD O0DB PUSHL R ; : 

000000006 00 FB DB CALLS #3, DEGSNMATCH ; : 
0 5 DB BLES RO. 1708 ; : 

030 1 00D¢ BRW 216$ ; : 

! 00028000 F DD OODC4 170$: PUSHL #164048 : 1763 : 
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000000006 00 01 Fe DCA 171%: CALLS #1, DBGSNMAKE_ARG_VECT : : 
0305 ; DD1 BRW 211$ : : 
01 «Ad D 90 00DD4 1728: move #13, 1(R9) + 1771 : 
4 11 00008 BRB 174$ + 1751) : 
01 Ag ¢ 90 ODA 173$: MOVB #12, 1(R9) t 1775. : 
pd DDE 174$: PUSHL #5 : 1783 ; 
00000000' Ef F OODE PUSHAB DBGSCS_ASCIC : | ; 
7 OD ODEs PUSHL R : | ; 
000000006 99 3 FB ODE CALLS #3, DEGSNMATCH : | ; 
g DO OODEF MOVL RO, R : ; 
01 D1 OODF CMPL =soR3, #1 : ; 
if 13 ODF Bea. ~=s«a175$ : | : 
0 pd DF PUSHL #2 + 1784 : 
00000000' ai F OODF9 PUSHAB DBG$CS_AC : | ; 
7 DD OODFF PUSHL F ; 
000000006 00 93 FB HOE 88 CALLS #3, DBGSNMATCH : | ; 
06 iF O£0B BNEQ 76s : ; 
68 26 p SOE OD 175$: MOVL #38, (NOUN_NODE) : 1786. ; 
0164 31 00E10 BRW 195$ : 1787) ; 
01 OD 00E13 176$: PUSHL #1 : 1797 | ; 
00000000' EF 9F OE 15 PUSHAB DBG$CS_PACKED ; | : 
57 DD 00E1B PUSHL ; ; 
000000006 00 03 FB OOE1D CALLS #3, DBGSNMATCH ; ; 
01 0 D1 O0E24 CMPL RO, #1 ; ; 
51 12 00627 BNEQ 180$ ; : 
68 15 D0 00E29 MOVL #21, (NOUN_NODE) : 1799. : 
01 DD O0E2C PUSHL # > 1804 _ ; 
00000000' EF 9F OE gE PUSHAB DBG$CS_COLON : ; 
57 OD 00E34 PUSHL : 3 
000000006 00 23 FB OOE 56 CALLS #3, DBGSNMATCH : : 
00028830 8F DD 00E40 PUSHL #165936 + 1806 : 
000000006 00 01 FB O0E46 CALLS #1, LIBSSIGNAL : : 
28 11 OOE4D BRB 179 ; : 
52 DD OOE4F 177: PUSHL LENGTH_NODE + 1813 ; 
57 DD 00E51 PUSHL R7 ; : 
000000006 00 08 FB OOE53 CALLS #2, DBGSNSAVE _INTEGER ; : 
58 E9 OOESA BLBC = RO,-:181$ : : 
2 D5 OOE 5D TSTL cL NGTH_NODE) : 1819 3 
05 19 OOE5F BLSS 1 : : 
1F 62 01 00E61 CMPL (LENGTH NODE) , #31 : : 
11 15 00664 BLEG si ; : 
2 oD OE 66 178$: PUSHL (LENGTH NODE) > 1821 : 
1 DD OOE PUSHL @# ; 3 
00028828 8F DD OEGA PUSHL #165928 : : 
000000006 00 03 FB OOE 9 CALLS #3, LIBSSIGNAL : : 
0267 31 OE? 179$: BRW 214s : 1779. : 
01 bo E7A 180$: PUSHL #1 > 1825 : 
00000000' Ef F oe 7C PUSHAB DEGSCS_ASCII ; : 
7 DD O0E PUSHL R ; : 
000000006 00 5 FB E CALLS ’ . DAGSNMATCH ; : 
9 ° OE BNEQ ‘1 : | : 
68 E 00 OOE MOVL #14, (NOUN_NODE) > 1827 : 
62 4 00 0069 MOVL #4, (LENGTR_NODE) > 1832 : 
1 DD 00E96 PUSHL #1 > 1836 : 


[J sain - 
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v04 14-Sep-1 DEBUG. SRCJDBGNSET .B32;1 
00000000' Ef OF E98 PUSHAB DBGSCS_COLON : 
7 DD OOE9 PUSHL : 
000000006 00 03 FB OEA CALLS a3, DEGSNMATCH : 
CD E9 OOEA BLBC : 
, DD OOEAA PUSHL r PhGTH _NODE + 1843 
DD OOEAC PUSHL R : 
000000006 00 08 FB OEAE CALLS #2, DBGSNSAVE_ INTEGER : 
. O&B5 181$: BLBS RO, 182$ : 
0222 31 O0EB8 BRW 21 : 
62 D5 OOEBB 182$:  TSTL (L NGTH_NODE) + 1849 
0000000" EF BF aS bocoe aya : 1857 
titdaittce EF 00000000" EF BF id) MOVAB P. heFe ROERO Sesces + 1858 
00000000" EF 9F O0ED1 PUSHAB ZERO_DESC + 1859 
01 DD 00ED7 PUSHL “i : 
00028180 8F DD O0ED9 PUSHL 64272 : 
000000006 00 03 FB OOEDF 183%: CALLS +3 DBGSNMAKE_ARG_VECT : | 
01F0 31 OOEE6 BRW 214s : 
05 DD OOEES 184%: PUSHL #5 + 1867. 
00000000' EF 9F OOEEB PUSHAB DBGSCS_ASCIZ : 
57 DD OOEF1 PUSHL 3 
000000006 00 03 FB OOEF3 CALLS a3, DEGSNMATCH : 
53 50 DO OOEFA MOVL ; 
01 53 D1 OOEFD CMPL Re. # : 
16 13 00F00 BEQL 3=s«é185$ ; 
02 DD 00FO2 PUSHL Ms + 1868 
00000000° EF 9F OOF04 PUSHAB DBGSCS_AZ ; 
7 DD OOFOA PUSHL R7 3 
000000006 00 03 FB OOF O¢ CALLS #3, DBGSNMATCH : 
01 50 01 00F1 CMPL =sRO. #1 ; 
06 if 00F 16 BNEG  186$ : | 
68 27 p O0F18 185$: MOVL #39, (NOUN_NODE) : 1870. 
0009 31 OOFIB BRW 195$ + 1871 
01 DD OOFIE 186%: PUSHL #1 > 1874 
00000000' EF 9F OOF20 PUSHAB DBGSCS_BYTE ; 
57 DD 00F 26 PUSHL ; 
000000006 00 03 FB OOF28 CALLS #3, DBGSNMATCH : 
01 50 D1 OOFOF CMPL =soRO. #1 ; | 
09 12 00F32 BNEG  187$ ; 
68 06 DO 00F 34 MOVL #6, (NOUN_NODE) : 1876 | 
62 01 p0 OF 37 MOVL (LENGTH_NODE) + 1877 | 
01A4 31 OOF3A BRWw 21s : 1779 
02 DD OOF3D 187%: PUSHL : 1880 
00000000° EF OF OF F PUSHAB 4 GS$CS_DATE_TIME ; 
7 DD 00F45 PUSHL ; 
000000006 00 g FB OOF47 CALLS #3, DBGSNMATCH : 
01 D1 OOF4E CMPL R 7 ; 
0 if OFS1 BNEQ ie : 
68 DO 00F53 MOVL #3 (NOUN _NODE ) > 188 
68 11 OOF : BRB : 188 
1 pp F58 188%: PUSHL oes + 1886 
00000000' FF F OOFSA PUSHAB DBGSCS_D_FLOAT F 
7 DD 00F6 PUSHL F 
000000006 00 93 FB OF6 CALLS #3, DBGSNMATCH : 
1 : : OF6 CMPL) SRO. ; 
6 é F6C BNEG 189% ; 
68 B 00 OOF6E MOVL #11, (NOUN_NODE) ; 1888 


DBGNSET 16-Sep-1984 01:58:19 AX-11 Bliss-32 V4.0-742 Page 60 
v04-000 1erepa tke P3393? = PANEL Sh igse 3d Ve -Oeree ey v 
4D 11 00F7 BRB 192$ : 1889 : 
01 po OFT 189$: PUSHL # + 1892 ; 
00000000' gf i OF 73 PUSHAB DBGS$CS_FLOAT : | : 
000000006 99 03 FB OF 7D CALLS #3, DBGSNMATCH : ; 
° DO OOF MOVL RO, R : : 
01 53 1 OF 7 CMPL =sR3. #1 : ; 
16 13 OOFBA Bea. 4«=s«é1:96S : ; 
01 od OF BC PUSHL # + 1893 ; 
00000000' Ef OF OOFBE PUSHAB DBGSCS_F_FLOAT : ; 
7 DD 00F94 PUSHL R : ; 
000000006 00 03 FB 00F96 CALLS #3, DBGSNMATCH : ; 
01 D1 OOF9D CMPL sO. #1 : ; 
05 12 OOFAO BNEQ 194$ : ; 
68 OA 00 OF Ag 190$: MOVL #10, (NOUN_NODE) + 1895 ; 
6D 11 OOFA BRB 197$ + 1896. : 
01 DD OFA? 191$:  PUSHL #1 + 1899 ; 
00000000° EF 9F OOFAD PUSHAB DBGSCS_G_FLOAT : ; 
7 DD OOFAF PUSHL 7 : ; 
000000006 00 03 FB OOFBI CALLS #3, DBGSNMATCH : F 
01 50 bi OOFBS CMPL—séRO., #1 : F 
06 12 OOFBB BNEQ 19%$ : | ; 
68 1B 06 OOF BD MOVL #27, (NOUN_NODE) + 1901 ; 
008E 31 OOFCO 1928: BRW 201$ : 1902) : 
01 DD OOFC3 193$: PUSHL #1 : 1905. : 
00000000' EF 9F OOFCS PUSHAB DBGSCS_H_FLOAT : ; 
57 DD OOFCB PUSHL 7 : ; 
000000006 00 03 FB OOFCD CALLS #3, DBGSNMATCH : ; 
01 50 D1 OOFD4 CMPL ; ; 
05 12 OOFD7 BNEQ : | : 
68 1¢ 00 OOFD9 MOVL § #28, (NOUN_NODE) + 1907 : 
54 11 OOFDC BRB 199§ : 1908 F 
01 DD OFDE 194$:  PUSHL #1 + 1911 ; 
00000000' EF OF OOFEO PUSHAB DBGSCS_INSTRUCTION : 3 
7 DD OOFE6 PUSHL ; | ; 
000000006 00 03 FB OOFES CALLS #3, DBGSNMATCH : : 
01 50 D1 OOFEF CMPL =seRO., #1 F | : 
07 if OOF F2 BNEQ 96s ; : 
3 16 DO OOFF4 MOVL #22, (NOUN_NODE) + 1913, : 
$s D4 OOFF7 195$:  CLRL CLENGTH_NODE) 7 1914 | 3 
11 OOFF9 BRB 203$ : 1779 | ; 
01 DD OOFFB 196$: PUSHL #1 > 1917. : 
00000000' EF 9F OOFF PUSHAB DBGSCS_LONGWORD ; | 3 
7 OO 199 PUSHL 3 3 
000000006 00 3 FB 100 CALLS #3, DBGSNMATCH : 3 
01 0 OD 43 CMPL 3 3 
08 if 100F BNEG 198$ F : 
48 08 DO 01011 MOVL #8, (NOUN_NODE) : 1919. : 
62 04 0001014 1978: MOVL #4. (LENGTH_NODE) ; 1920 : 
59 11 01017 BRB 208$ : 1779 ; 
01 po 1019 198$: PUSHL @# : 1923 : 
00000000° Ef F 0101B PUSHAB DBGSCS_OCTAWORD ; : 
7 DD 01021 PUSHL : : 
000000006 00 03 FB 1023 CALLS #3, DBGSNMATCH ; 3 
01 b 102A CMPL =SsRO., ; ; 
09 102D BNEG 20068 ; ; 
68 1A 00 0102F MOVL #26, (NOUN_NODE) > 1925 : 


oe 
vOe~000 
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13-808- 1382 04:98:38 DEBUG. SRCJDBGNSET.B32;1 
62 10 pO 01032 199$: MOVL #16, (LENGTH_NODE) 
0080 Rt 1 : BRW $O9$ , 
1 bp 1 200$: PUSHL #1 
00000000' EF 9F O103A PUSHAB DBGSCS_QUADWORD 
7 DD 01040 PUSHL 
000000006 00 3 FB O01 4g CALLS #3, DBGSNMATCH 
1 0 D1 0104 CMPL =soRO., #1 
08 12 0104C BNE $ 
68 9 DO 0104E MOVL #9, (NOUN_NODE) 
62 08 D0 01051 2018: MOVL #8. (LENGTH_NODE) 
6F 11 01054 BRB 209$ 
01 po 01056 202$: PUSHL #1 
00000000° FF F 01 PUSHAB DBGSCS_WORD 
7 DD 0105 PUSHL R7 
000000006 00 03 FB 01060 CALLS #3, DBGSNMATCH 
01 0 D1 01067 CMPL sO 
45 12 0106A BNEQ  207$ 
68 07 DO 0106C MOVL #7, (NOUN_NODE) 
62 02 v0 BIE MOVL #2, (LENGTH_NODE) 
6D 11 01072 2038: BRB 218$ 
01 DD 01074 204$: PUSHL # 
00000000' EF OF 01076 PUSHAB DBGSCS_WATCH 
7 OD 0107¢ PUSHL 7 
000000006 00 03 FB O107E CALLS #3, DBGSNMATCH 
01 30 D1 01085 CMPL =soRO. #1 
13 12 01088 BNEQ 208s 
01 Ad 11 90 0108A MOVB #17, 1(R9) 
OC AC DD O108E 205$: PUSHL MESSAGE VECT 
0280 8F BB 01091 PUSHR #*M<R7,R9> 
000000006 00 03 FB 01095 CALLS #3, DBGSEVENT_SYNTAX 
03 OD 91990 206$:  PUSHL #3 
00000000' EF 9F 0109F PUSHAB DBGSCS_WINDOW 
7 DD 010A5 PUSHL 
000000006 00 03 FB 01047 CALLS #3, DBGSNMATCH 
01 0 D1 10AE CMPL SRO. #1 
03 1301081 207$: BEQL 208$ 
FCF? 31 01083 BRW 169$ 
01 a9 1A 90 010B6 208$: MOVB #26, 1(R9) 
0280 8F 6B O10BA PUSHR #*M<R7,R9> 
000000006 00 02 FB 0108 CALLS #2 DBGSSCR_PARSE_SETWIND_CMD 
1A 11 010¢ 2098: BRB 214$ 
57 OD 010C7 210$:  PUSHL 
000000006 00 gi FB 10¢9 CALLS #1, DBGSNNEXT_WORD 
0 DD 0100 PUSHL R 
000000006 00 gi FB 190 CALLS #1, DBGSNSYNTAX_ERROR 
OC BC 0 pO 010D 118: MOVL RO, @MESSAGE_VECT 
50 04 00 01000 12$: MOVL #4. RO 
04 010€0 RET 
50 01 00 O10E1 2138: MOVL #1, RO 
04 O10E4 RET 
; Routine Size: 4325 bytes, Routine Base: DBGSCODE + 0000 
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GLOBAL ROUTINE DBGSNEXECUTE_SET (VERB_NODE, MESSAGE_VECT) = 
FUNCTIONAL DESCRIPTION: 


This routine processes the command execution tree corresponding to the parsed 
«++ Command. Appropriate semantic actions are taken. 


! FORMAL PARAMETERS: 
VERB_NODE = The head node in the command execution tree 


MESSAGE_VECT = The address of a longword to contain the address 
of a message argument vector 


i IMPLICIT INPUTS: 


DBG$GL_LOG_BUF - Version 2 debugger pointer to counted string filespec 
DBGSGL_CONTEXT - a rr - context switch vector for log and output 
DBG$GB_DEF_OUT - a” - am output control vector 

DBGSGL_LOGFAB - ae ” ¥3 FAB for log file 

DBGSGL_LOGRAB - = 3 a Meo ea 


! IMPLICIT OUTPUTS: 
Any of the above implicit inputs may be altered 
ROUTINE VALUE: 
An unsigned integer longword completion code 
i COMPLETION CODES: 
STSSK_SEVERE (4) - Signifies that the command was not executed 
STS$K_SUCCESS (1) - Signifies that a command was executed. 
i SIDE EFFECTS: 


Various semantic actions are performed on data structures. That is, the 
state of the debugger is altered. 


i 
i 
i 
i 
' 
i 
' 
i 
i 
i 
i 
i 
! 
i 
i 
' 
' 
i 
! 
' 
i 
' 
i 
! 
i 
! 
i 
i 
i 
i 
! 
i 
' 
i 
' 
i 
' 
i 
! 
i 
i 
! 
i 
BEGIN 
P . 
VERB_NODE : REF DBGSVERB_NODE; ! Pointer to command Verb Node 


LOCAL 
NOUN_NODE : REF DBGSNOUN_NODE; ! Pointer to current Noun Node 


! Recover the noun node. 
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, V04-000 

| 

3 1924 054 

3 1925 055 
> 1926 056 

3 1927 057 
: 1928 058 
3: 1929 059 
; 19350 060 
; 1383 061 
3 19 ; 066 
3; 193 06 
> 1934 2064 
; 133 $pe? 

ft 1936 066 
3: 1937 2067 
; 1938 2068 
3; 1939 2069 
: 1940 2070 
> 1941 2071 
: 1306 song 
3 194 207 
2 1944 2074 

1; 1945 2075 
3 1946 2076 
: 1947 2077 
3; 1948 2078 
3; 1949 2079 
: 1950 2080 
3; 1951 2081 
3: 1952 2082 
3; 1953 2083 
3; 1954 2084 
3; 1955 2085 
3; 1956 2086 
: 1957 2087 
3; 1958 2088 
3; 1959 2089 
3; 1960 090 
‘1362 092 
: 1963 $098 
3 1964 094 
3; 1965 095 
3: 1966 2096 
: 1967 097 
: 1968 098 
3 1969 099 
; 1970 100 
: 1971 2101 
; ore $108 
: 197 10 
3: 1976 104 
; 1975 105 
: 1976 106 
; 1977 10 
; 1978 108 
; 1979 109 
: 1980 110 

| 
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] 
NOUN_NODE = .VERB_NODE CDBGSL_VERB_OBJECT_PTRI; 


AX=11 BL 
DEBUG. SR 


Transfer to a subnetwork on the basis of the composite verb. 
CASE VERS MODELDOSSR_ VERS COMPOSITE FROM SET_MINIMUM TO SET_MAXIMUM OF 


Execute the SET BREAK command. 
CSET_BREAK): 


BBGSEVENT_SEMANTICS (.VERB_NODE, .MESSAGE_VECT); 


! Execute the SET DEVELOPER command by setting the specified 


bits in the DBGSGL_DEVELOPER Longword. 
{SET DEVELOPER] : 
1F _«,VERB_NODECOBGSL_VERB_OBJECT_PTR] NEQ 0 


BEGIN 
NOUN NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTRI; 


WHILE TRUE DO 


c§ 


s-32 V4.0-74 


DBGNSET.B3 


BEGIN 
DBGSGL_DEVELOPERC.NOUN_NODE CDBGS$L_NOUN_VALUEJ] = TRUE; 
IF .NOON_NODECDBGSL_NOON_LINK] EQL~O THEN EXITLOOP; 


NOUN NODE = .NOUN_NODECDBG$L_NOUN_LINK); 


END; 
END; 


Execute the SET DEFINE command. 
{SET_DEFINE) : 
BEGIN 


DBGSSET 4 


DEF INE) 
DBG$GB_BE J = 
END 


-—s 
a 


: Execute the SET DISPLAY command. 
(SET_DISPLAY): 


BBGSSCR_EXECUTE_DISPLAY_CMD(.VERB_NODE, TRUE); 


: Execute the SET EXCEPTION BREAK command. 
fset_exception_break] : 

BEGIN 

dbg$gb_resignal = false; 


bvt (USER_DEF : 
PTRCDEF INE_ONLY -NOUN_NODE CDBG$L_NOUN_VALUE); 


742 Page 63 
2:1 (4) 


—— ee 


DBGNSET 
| v04- 


COOODOOO0O0O0O 
SeSSSESearaes Z 


SE2333 


PRINS a kk kk kk ts 8 


S335 


S3ss 


pelolelolelojlelolelelelelelelelqaleololo) 


IA. A AI AIT TUPI PINIPINININIAD 2 2 2 OO Oo 


Wiis 
USARSUNSLSSONVO RRA“ SOMNOnRWN—O 
ee el el ee el el el el el el el el el el el eel el elt eels el cel eel elt acl els cel elt ls cells lt calls ls calls eect ls cal cals cls cel calls calls asl cals calle aaa ils salle cals cal allt calls ll lls 


PIPIPIPDPININIPPONIPINPININNINININININYPYNININ NINN NININIPIPINIPYNPIPYNIPIPOPOPINUNPONNPONoNoNonofonononony 
DPAEXDBPAE XXX XDD Mn & BB BEE EE AWWW NAWWI WAI PIPINIPINNPNNINY 2 SS SS Ses 
NO OE WN 0 ODO UE WIN $0 OD NOAU EWI 0 ODNOAU EWN OO ODNOAU EWN OOONOU SW 
CRIP IPINIPINIWIAIIPIPINI WWIII NIN WAI ANAAIPI II NI NWI INI NI WANNA AWNWWNANANNNNNIWIWIWoponononofnuw 


Rohonofonononofononononopofenofororornnnvrnrnrnrnrnny 


pelo lojlololelejlol=) 


dD 3 
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14-Sep-1984 12:17:21 DEBUG. SRC JDBGNSET.832;1 
NODE 


— DBGSEVENT_SEMANTICS (.VERB_NODE, .MESSAGE_VECT); 


0 
1 


Execute the SET KEY command. 
{SET KEY) : 
BEGIN 
OCAL 
OUTPU;_LOG, 
SET STATUS 
DEST_PTR: REF DBGSSTG_DESC; 


OUTPUT_LOG = .VERB_NODE CDBGSL_VERB_ADVERB_PTRI; 


Make the call to set the status. 

SET_STATUS = SMGSSET_DEFAULT_STATE (DBGSGL_KEY_TABLE_ID, 
-NOUN_NODE~ CDBG$L_NOON_VALUE)); 

IF NOT .SET_STATUS THEN SIGNAL (DBGS_SETKEYERR) ; 

IF (OUTPUT COG 

SIGNAL (DBGS$_SETKEY, 1, .NOUN_NODE CDBG$L_NOUN_VALUE)); 
END; 
CSET_LANGUAGE) : 


N 
DBGSSET_LANG (0, .NOUN.NODE CDBGSL_NOUN_VALUE3) 


Cset_log] : 
BEGIN 


dbg$al_ log buf = .moun_node [dbg$l_noun_value]; 
IF NOT dbg$nset_log (.message_vect) 


RETURN sts$k_severe; 
END; 


Coot moraines : 
dbg$src_left_margin = naan nate Pgs noun_value); 
Gbgserc right _nargin = .noun_nodeld g$T_nouh_valuec); 


Loot pes source_f ties) : 
gogserc.set nor, t1les(.noun_nedel dogs _neun_valued) 


Execute the SET MODE command. 


CSET MODE) : 
BEGIN 
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Set the mode level to the correct level. 
DBGSSET_MOD_LVL (USER_DEF_MODE); 


Now fill in the correct mode values. 
WHILE -NOUN_NODE NEQA 0 DO 
CASE .NOUN_NODE CDBG$L_NOUN_ VALUE] 
ost FROM MOBE_LOWEST TO MODE_HIGHEST OF 
CMODE_BINARY]) : 
BEGIN 


DBG$GB_RADIXCOBG$B_RADIX_INPU 


, _INPUT]_= DBGSK_BINARY; 
DBGSGB_RADIX DBG$B_RADIX~OUTPUT 


] = DBGSR_BINARY; 
CMODE OCTAL] : 

BEGIN 

BOSsGS RAD INE DBGSS_RADIN. INPUT? = DBGSK_OCTAL; 

DOCSeB_RADIX DBG$B_RADIX_OUTPUT] = DBGSR_OCTAL; 
CMODE DECIMAL : 

DBG$GB_RADIXCOBG$B_RADIX_INPUT] = DBGS$K_DECIMAL; 

DOGSGB_RADIX DBG$B_RADIX-OUTPUT] = DBGSR_DECIMAL; 
CMODE_ DEFAULT) : 

BEGIN 

DBG$GB_RADIXCDBG$B_RADIX_INPUT) = 

$NGET TRANS “RAD INTDBGSK DEFAULT) ; 


DBGSNG 
DBG$GB_RADIXCDBG$B_RADIX_OUTPUT) = 
. DBGSNGET_TRANS_RADIXTDBGSK_DEFAULT); 


cnoee ene 3 
DBG$GB_RADIXCDBGSB_RADIX_INPUT) = DBGSK_HEX; 
DBGSGB-RADIXCDBG$B_RADIX-OUTPUT = DBGSR_HEX: 
CMODE_SYMBLS) : 
DBGSGB_MOD_PTR CMODE_SYMBOLS] = TRUE; 


CMODE_NOSYMBLS) : 
DBG$GB_MOD_PTR CMODE_SYMBOLS) = SALSE, 


[MODE_G_FLOAT): 
DEGSGB_MOD_PTR CMODE_G_FLOATS) = TRUE; 


[MODE _NOG_FLOAT): 


—_—— 


. 
} 
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1o-$00" 138% 01:58:19 AX-11 Bliss-32 V4.0-74 
12:17:21 DEBUG. SRC JDBGNSET.B83 


14-Sep-1984 12: 
DBG$GB_MOD_PTR CMODE_G_FLOATS] = FALSE; 


CMODE SCREEN]: 
DBGSSCR_SCREEN_MODE (TRUE) ; 


CMODE_NOSCREEN): 
DBGSSCR_SCREEN_MODE (FALSE); 


CMODE_KEYPAD]): 

BEGIN 

DBG$GB_KEYPAD_INPUT = TRUE; 

SAGSSET_KEYPAD_RODE (DBG$GL_KEYBOARD_ID,%REF(1)); 
CMODE_NOKEYPAD): 

BEGIN 

DBG$GB_KEYPAD_INPUT = FALSE; 

SRGSSET_KEVPAD_MODE (DBGS$GL_KEYBOARD_ID,2%REF(0)); 
TES; 


Recover the next Noun Node and Loop. 

NOUN_NODE = .NOUN_NODE CDBG$L_NOUN_LINK); 

END; ! End of loop over SET MODE keywords 
END; ! End of SET MODE command 


Handle the SET MODULE command. 
CSET_MODULE, SET_MODULE_ALL) : 
BEGIN 


EXTERNAL ROUTINE 
LIBSSPAWN 
SYSSWAITFR; 


CAL 
ALLOCATE_FLAG, 
EVNT_FLAG, 


FLAG 
NAME BUFF: REF VECTOR C.BYTE), ! Module name buffer 
STATOS; 


Before going enrsate - check for /NOWAIT flog. 
The ADVERB_POINTER field indicates whether /NOWAIT 
was specified and/or whether /ALLOCATE was specified. 
The codes are 

0 = neither /NOWAIT or /ALLOCATE 

1 = /NOWAIT, mot /ALLOCATE 

¢ = mot /NOWAIT, /ALLOCATE 

- both were specified 
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! 
STATUS = FALSE; 
IF, VERB_NODE CDBGSL_VERB_ADVERB_PTRI 
BEGIN 
: We accomplish SET MODU/NOWAIT by spouning a subprocess 
! with the /NOWAIT ee peeees to LIBSSPAWN. The 
! subprocess can accept DCL commands until the 
! SET MODU completes. We pass in an event flag number (0) 
to be set when the subprocess completes. 
FLAGS = 1; 


EVNT FLAG = 0; 
STATOS = LIBSSPAWN(0,0,0,FLAGS,0,0,0,EVNT_FLAG); 
IF NOT .STATUS 


THEN 
END SIGNAL (DBG$_NOSPAWNI ,0,.STATUS); 


: SET MODULE/ALLOCATE was specified if the 2nd bit of 
the ADVERB_PTR field is set. 


ALLOCATE_FLAG = - VERB_NODECDBGS$L_VERB_ADVERB_PTR)/2; 

Loop through the List of modules to set. 

ff -z,vere nodal degib_verd_composites EQL set_module_all 
dbg$rst_setmod (0, 0, .allocate_flag) 


ELSE 
ae -Noun_node NEQA 0 


BEGIN 


! Retrieve the name buffer and call the symbol table 
Module names are stored away as counted strings 


name_buff = .noun_node (dbg$l_noun_value); 
IF NOT dbg$rst_setmod (name_buff [TJ], .name_buff (0), 
-allocate_ flag) 


THEN 
BEGIN 
-message_vect = dbg$nmake_arg_vect (dbg$_nosuchmodu, 


name_buff (0); 
RETURN sts$k_severe; 
END; 
Obtain the next noun node 


noun_node = .noun_node (dbg$l_noun_link); 
END; ! End of Coop 


! wait for spawned subprocess to complete if there was one. 


— 
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' 

IF .status 

THEN 
BEGIN 
SIGNAL (DBG$_SETMODU); 
SYSSWAITFR(TEVNT_FLAG); 
END; 

END; 

{set putputs : 

EGI 

LITERAL 
NOUN_LITERAL_LOG at. 
NOUN_LITERAL_NOLOG = ¢° 
NOUN_LITERAL_SCREEN # 3, 
NOUN_LITERAL_NOSCREEN = 4, 
NOUN_LITERAL_ TERMINAL z 5, 
NOUN_LITERAL_NOTERMINAL z 6, 
NOUN_LITERAL_VERIFY = 7, 
NOUN-LITERAL"NOVERIFY = 8; 


! Add the user defined output setting 
WHILE ~_ dO 
CASE .NOUN_NODECDBG$L_NOUN_VALUE] FROM NOUN_LITERAL_LOG 
TO NOUN_LITERAL_NOVERIFY OF 
SET 
CNOUN_LITERAL_LOG) : 
BEGIN 
LOCAL 
STATUS, 
B_TYPE; 


STATUS = DBGSNSETUP_LOG (B_TYPE); 
if NOT .STATUS 


HEN 
OUTPUT_RMS_ERROR (.B_TYPE); 


DBGSGB_DEF_OUT COUT_LOG] = TRUE; 
IF .0BG$GB~DEF _OUTCOUT_ SCREEN) 


THEN 
DBGSGL_SCREEN_LOG = TRUE; 
END; 
CNOUN. LITERAL_NOLOG) : 
IF NOT .OBG$GB_DEF_OUT COUT_TERM) 
DBGSNOUT_INFO (DBG$_OUTPUTLOST); 


DBG$GB_DEF OUT COUT_LOG) = FALSE; 
DBGSGL “SCREEN_LOG ="FALSE; 


23 
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$6 96 4 CNOUN_LITERAL_SCREEN): 
6 9 BEGIN 
68 98 DBGSGB_DEF _OUTCOUT SCREEN] = TRUE; 
69 99 IF . DBG$GB_DEF _OUTCOUT_LOG) 
70 400 THEN 
4 ret DBGSGL_SCREEN_LOG = TRUE; 
i 40 4 END; 
74 404 4&4 
$f? ret ¢ CNOUN LITERAL _NOSCREEN): 
927 407 2 DBG$GB_DEF QUT COUT SCREEN] = FALSE; 
78 406 DBGSGL“SCRE N_LOG = FALSE; 
279 409 4 END; 
seo 2410 & 
81 e411 4 CNOUN_LITERAL_TERMINAL] : 
see c16 5 
28 2413 5 DBG$GB_DEF_OUT COUT_TERM] = TRUE; 
284 2414 & END; 
285 2415 4 
286 2416 4 CNOUN_LITERAL_NOTERMINAL] : 
287 2417 5 N 
288 2418 5§ IF NOT .OBGSGB_DEF_OUT COUT_LOG) 
289 2419 5 THEN 
290 3420 3 DBGSNOUT_INFO (DBG$_OUTPUTLOST); 
39¢ 2402 § DBG$GB_DEF_OUT COUT_TERM) = FALSE; 
29 2423 4 END; 
294 2424 & 
295 2425 & CNOUN_LITERAL_VERIFY] : 
296 2426 4 DBG$GB_DEF _OuT COUT_VERIFY] = TRUE; 
297 2427 & 
298 2428 4 CNOUN_LITERAL_NOVERIFY] : 
299 2429 4 DBG$GB_DEF_OUT COUT_VERIFY] = FALSE; 
300 2430 4 
301 2431 & TES; 
302 $e36 4 z 
303 2433 4 ' Check for another object 
304 2434 4 
305 2435 4 iF .NOUN_NODE CDBG$L_NOUN_LINK] EQLA 0 
306 2436 4 THEN 
307 437 4 EXITLOOP; 
308 438 4 
309 439 4 ! Update the noun node 
310 440 4 $ 
$1) ere 2 NOUN_NODE = .NOUN_NODE CDBG$L_NOUN_LINK]; 
318 rk ; END; ! End of loop over OUTPUT parameters 
314 444 
315 445 2 END; 
218 44 
31 44 
He 2B Execute the SET RADIX command. 
320 450 CSET_RADIX, SET_RADIX_OVERRIDE) : 
35) 451 BEGIN 
2 452 LOCAL 
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RADIX; 
Fill in the correct radix value. 


CASE .NOUN_NODE CDBGS$L_NOUN_ VALUE] 
ae FROM MODE_LOWEST TO MODE_HIGHEST OF 


CMODE_BINARY] : RADIX = DBGSK_BINARY; 
C[MODE_OCTAL] =: RADIX = DBGSK_OCTAL; 
CMODE_DECIMAL] : RADIX = DBGSK_DECIMAL; 
CMODE_DEFAULT] : RADIX = DBGSK_DEFAULT; 
CMODE_HEX] : RADIX = DBGSK_HEX; 


CINRANGE, OUTRANGE): / 
$DBG_ERROR(*DBGNSET\DBGSNEXECUTE_SET unexpected radix"); 


TES; 


The VALUE2 field contains: 
0 if no /INPUT or /OUTPUT was specified (in this 
case we set both radices) 
1 if /INPUT was specified 
2 if /OUTPUT was specified 
The + rin field tells us whether /OVERRIDE was 
specified. 
We use these pieces of information to tell us which 
A ae three elements of the DBGSGB_RADIX byte vector to 
in. 


Fj VERB_NODECDBGSB_VERB_COMPOSITE3 EQL SET_RADIX 


SS 


BEGIN 
IF «RADIX EQL DBGSK_DEFAULT 
RADIX = DBGSNGET_TRANS_RADIX(.RADIX); 
IF .NOUN_NODECDBG$L_NOUN_VALUE2] LEQ 1 
DBGS$GB_RADIXCDBG$B_RADIX_INPUT] = .RADIX; 
IF NOT .NOUN_NODECDBGS$L_NOUN_VALUE2) 
DBGS$GB_RADIXCDBG$B_RADIX_OUTPUT] = .RADIX; 
END 
ELSE IF . VERB_NODECDBG$B_VERB_COMPOSITE] EQL SET_RADIX_OVERRIDE 
DBG$GB_RADIXCDBG$B_RADIX_OUTPUT_OVER] = .RADIX 


ELSE 
$DBG_ERROR( * DBGNSE T\DBGSNEXECUTE_SET'); 
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END; ! End of SET RADIX command 
Cset_scope] : 
BEGIN 


OCAL 
SCOPE_LIST : REF VECTOR C,LONG], 
BAD_STOPE, 
ERR~ INDEX: 

Recover the scope vector 

scope_list = .noun_node [dbg$l_noun_value); 


: Set the scopes. 1 was filled into the adverb field if 
; SET SCOPE/MODULE was specified; 0 otherwise. 


dbg$rst_setscope (.scope_list, err_index, 
-verd_node(dbg$l_verb_adverb_ptr]); 


Check for an error 
if .err_index NEQ 0 
THEN 
BEGIN 
Translate the bad scope to a counted string 
dbg$npathdesc_to_cs (.scope_list C.err_index], bad_scope); 
Format an error message 
smessage_vect = dbg$nmake_arg_vect (dbg$_badscope, 1, .bad_scope); 
RETURN sts$k_severe; 
END; 
END; 
Cset_search] : 
BEGIN 
LITERAL 
noun_literal_all = 1 
noun_literal_next é, 


noun“ literalstring 
noun_literal_ident = 4 


3, 
First set the search st-ucture to the user defined level 
dbg$set_search_lvl (user_def_search); 


! Add the new user defined settings. Remember the first noun 
node has already been recovered. 


WHILE TRUE DO 
BEGIN 


Page 71 
. (4) 


+4 


3 
1h-Sep-1986 01:58:19 VAX=11 Bliss-32 v4.0-762 Page 72 
1eneeea Tobe 8ai7Fisy | Mee eh Ss stestt 8554 wr al 


CASE .noun_node [dbg$l_noun_value] FROM noun_Literal_all 
OF SET TO noun_literal-ident 


crown, | iterat ott) : |! SET SEARCH ALL 
gbgsqb.search_ptrlsearch all) = TRUE; 


noun | iterel eet? : ! SET SEARCH NEXT 
gogeab_search.ptr(search all = FALSE; 


inoun, | izeral_ ident’ : ! SET SEARCH IDENT 
gogegd.search_ptrlsearch_ ident) = TRUE; 


Cnoun, | iterel string] : |! SET SEARCH STRING 
gogeee scorch ptrlseerch, ident = FALSE; 
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$ > TES; 
2 Now check for another switch. If none, exit the loop. 
3 3 IF .nmoun_node Cdbg$l_noun_link] EQL 0 
3 > EXITLOOP; 
send Update the noun node to the next object 
260 noun_node = .noun_node [dbg$l_noun_link); 
604 END; ! End of loop 
605 
606 END; 
2607 : ; 
2608 Cset_source] : ! Set source directory search list 
at BEGIN 
611 dbg$src_set_source( 
sole “noun node) dbgst adjective.ptr). 
eh -noun_nodeldbg$l_noun_value]); 
615 END; 
O18 
61 
$18 {set step) : ! Set step values 
oe DBGSEVENT_SEMANTICS (.VERB_NODE, .MESSAGE_VECT); 
6 : , 
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Execute the SET TASK command. 
{SET_TASK): 

BBGSNEXECUTE_SET_TASK(.VERB_NODE); 
Execute the SET TERMINAL command. 
CSET TERMINAL: 
BBGSSCR_EXECUTE_SETTERM_CMD(.VERB_NODE) ; 
Execute the SET TRACE command. 


CSET_TRACE): 
BBGSEVENT_SEMANTICS(.VERB_NODE, .MESSAGE_VECT); 


Coot type : 


LOCAL 
LENGTH_NODE : REF dbg$noun_node; 

We always have a second noun node (containing the length). 

length_node = -noun_node Cdbg$l_noun_link]; 

dbg$gl_dflttyp = .noun_node (dbg$l_noun_value]; 

gbgseu_dtitiong = .length_node [dbg$l_noun_value); 
Cset_type_override] : 

BEGIN 


LOCAL 
LENGTH_NODE : REF dbg$noun_node; 


We always have a second noun node (containing the length). 
length_node = .noun_node [dbg$l_noun_l ink); 


dbg$gl_gbltyp = .noun_node [dbg$l_noun_valuel; 
dbgsgu_gbl Lngth = .length_node CdBg$l_foun_value); 


Execute the SET WATCH command. 
Cset_watch): 

BBGSEVENT_SEMANTICS (.VERB_NODE, .MESSAGE_VECT); 
Execute the SET WINDOW command. 


CSET WINDOW): 
DBGSSCR_EXECUTE_SETWIND_CMD(.VERB_NODE) ; 
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5 2 681 ! Any other command CASE index should never occur. Hence we signal 
: ¢ ¢ ; an internal DEBUG error in this case. 
; 2 684 CINRANGE, OUTRANGE): 
3 22? o8? $DBG_ERROR('DBGNSET\NEXECUTE_SET'); 
3; 2557 eB? TES; 
3; 2558 688 
; 2559 689 
: 209 24 } The command has successfully been executed. Now return. 
: 256 69 RETURN STS$K_SUCCESS; 
; 208 8 ” 
3; 2564 694 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
45 GE 246 47 42 464 SC 54 45 53 GE 47 & 44 9 00309 P.AEG: .ASCII \)DBGNSET\<92>\DBGSNEXECUTE_SET unexpect\ 3 
78 65 6€ 75 20 54 45 53 SF 45 54 55 23 45 3 00318 Ms . 3 
74 63 65 70 00327 3 
78 69 64 61 Ts 20 64 65 Base ASCII \ed radix\ 3 
45 4& 246 47 42 44 SC 54 45 53 GE & 4 44 18 00353 P.AEH: “ASCII <24>\DBGNSET\<92>\DBGS$NEXECUTE_SET\ z 
54 45 53 SF 45 54 55 43 45 58 00342 : 
55 43 45 58 45 GE SC 54 45 53 4E 47 42 44 14 0034C P.AEI: .ASCII <20>\DBGNSET\<92>\NEXECUTE_SET\ g 
54 45 53 SF 45 54 00358 : 
-EXTRN LIBSSPAWN, SYSSWAITFR 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY pOssne xe cure SET, Save R2,R3,R4,R5,R6,.R7,- ; 1997 
5B 00000000G 00 9€ 00002 MOVAB DBGSNGET TRANS_RADIX, R11 : 
5A 00000000G 00 9€E 00009 MOVAB ppesce MOD_PTR; R10 5 
59 00000000G 00 9€ 00010 MOVAB 18$S16 3 
58 00000000G 00 9€ 00017 MOVAB DBGS$GL_LOGFAB+52, R8 ; 
57 00000000G 00 9€ BOOT MOVAB BGS$GB_RADIX, 3 
56 000000006 00 4 4 MOV DBG$GB" DEF OUT, R6 3 
5E 18 C2 0002C SUBL #24, SP : 
26 04 AC 00 0002F MOVL VERB_NODE, R2 : 2055 
5 08 a DO 00033 MOVL ae y" NOUN NODE 3 
8 ‘e 01 Ad 8F tHe CASEB (R2) R29 ; 2060 
0088 008 003¢ 047D 003c 1$ . WORD teat pea ; 
O1AF O1AF oor 00C8 BN $-1$,- 3 
0455 0432 O3AC 0241 004C $-18,- 3 
003¢ 003¢ 047D 0469 00054 11$-1$,- : 
00DD poet 0424 $370 005C 13$-1$,- 3 
0076 061 0045 3€B 0064 18$-1$,- 3 
0321 0321 bege etry 006C ; $-1$,- 3 
043F 08C 00074 7$-1$,- ; 
43$-1$,- ; 
tat : 
$-1$,- 3 
96$-1$,- 5 
97$-1$,- 3 
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NODE 
DBG$GL_DEVELOPER, 5$ 
NOUN_NODE 


DBGSSET DEF 
G6$GB_DEFINE P 
QUN.. NODE), TR 
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#2, DBGSSCR_EXECUTE_DISPLAY_CMD 


DBGS$GB_RESIGNAL 
tenn’ QUTPUT_LOG 
ODE) 
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Set STATUS, “1 
#16417 

#1, LIBSSIGNA 
output LOG, 1 
(NOUN_RODES 
#164035 
78$ 
(NOUN_NODE ) 
= P) 

We DBGSSET_LANG 
(NOUN hove) DBG$GL_LOG_BuF 


MESSAGE vECT 
DBGSNSET LOG 
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04-0 1o-$08- 138% 3:79:38 DEBUG. SRCJDBGNSET.B32;1 ra 
3 11 001BF BRB 36$ : 
| 000000006 00 1 90 001C1 338 MOVB #1, DBG$GB_KEYPAD_INPUT : 3235 
| : et ee ee y 86 
000000006 00 94 01¢ 34$ CLRB DBG$GB_KEYPAD_INPUT > 2241 
ge D4 0010 CLRL (SP) : 2242 
E bD 9010 35$ PUSHL SP : 
| 000000006 00 9F 00107 PUSHAB DQGSGL KEYBOARD. ID : 
000000006 99 02 FB 33100 CALLS #2, SMGSSET_KEYPAD_MODE 3 
5 08 A 0 O1E4 36$ MOVL 8(NOUN_NODEY, NOUN NODE ; 2250 
FF54 31 OO1E8 BRW 19$ + 2177 
55 (D4 OO1EB 37$ CLRL STATUS : 2283 
2F 04 A2 €9 OO1ED BLBC 4(R2), 38$ + 2284 
08 AE 01 DO O01F1 MOVL #1, FLAGS + 2295 
06 AE D4 001FS CLRL EVNT_FLAG + 2296 
046 AE OF 001F8 PUSHAB EVNT-FLAG : 2297 
7E 7C 0O1FB CLRQ = = (SPY : 
7E 04 OO1FD CLRL -(SP) : 
18 AE 9F OOTFF PUSHAB FLAGS : 
7E 7C 00202 CLRQ = = (SP) : 
7E 04 00204 CLRL -(SP) : 
000000006 00 08 FB 00206 CALLS #8, LIBSSPAWN : 
55 50 00 0020D MOVL RO, STATUS : 
0D 55 (£8 90210 LBS STATUS, 38$ : 2298 
55 DD 00213 PUSHL STATUS : 2300 
7E 04 00215 CLRL =(SP) : 
00028608 8F DD 00217 PUSHL #165595 : 
69 03 FB 0021D CALLS #3, LIBSSIGNAL 3 
54 06 A2 02 C7 00220 38$: DIVL3 #2, 4(R2), ALLOCATE_FLAG : 2306 
08 01 A2 91 00225 CMPB = 1(R2), #8 > 2310 
0D 12 00229 BNEQ 39$ ; 
54 DD 00228 PUSHL ALLOCATE_FLAG : 2312 
7e 7C 00220 CLRQ.  =(SP) : 
000000006 00 63 FB Oocer CALLS #3, DBGSRST_SETMOD : 
2C 11 00236 BRB 41$ : 
53 D5 00238 398: TSTL NOUN_NODE : 2315 
28 13 O023A BEQL 41$ : 
52 63 D0 0023 MOVL (NOUN_NODE), NAME_BUFF : 2322 
54 DD 0023F PUSHL ALLOCATE FLA 3 2324 
7E 62 9A 00241 MOVZBL (NAME BUFF), -(SP) 3 2323 
01 Ag 9F 00244 PUSHAB 1(NAME_BUFF ; 
000000006 00 03 FB 00247 CALLS #3, DBGSRST_SETMOD : 
0D 50 £8 0024E BLBS : 
52 DD 99 21 PUSHL NAME_BUFF : 2329 
01 DD 00253 PUSHL @# : 
000281E8  8F bb 0 35 PUSHL #164328 : 
01BA 31 00258 BRW : 
53 08 a3 00 00 3E 408: MOVL (NOUN_NODE), NOUN_NODE : 2335 
p4 41 0026 BRB > 2315 
13 5 £9 00264 418: BLBC STATUS, 42$ : 2340. 
000286E3 8F DD 00267 PUSHL #1 > 2343 
69 01 FB 00 $0 CALLS #1, LIBSSIGNAL 3 
04 AE dD 00 9 PUSHL EVNT_FL > 2344 
000000006 00 91 FB 0027 CALLS #1, SYSSWAITFR : 
02 ; 31 O0027A 42s: BRW : 2060 
07 91 63 CF 00270 43$: CASEL (NOUN_NODE), #1, #7 : 2364 
00A1 0091 007¢ 0010 00281 44$ <WORD 45$-42$,- ; 


Co 


00CD 


1b-sep-19 4 01:5 
138 ° 1 


14-Sep-1984 12: 
00C7 0082 OOAC 00289 
OC AE OF 34 45$ PUSHAB 
0000v gf gf fe 0294 CALLS 
8 0 €8 00299 BLBS 
02 DD 0029C PUSHL 
000000006 00 4 F 8 13 CALLS 
000000006 00 D5 002A TSTL 
OA 13 002AB BEQL 
60 68 98 002AD MOVZBW 
046 Ad FB As 00 tts! MOVL 
09 11 00285 BRB 
60 01 A8& 9B 002B7 46$ MOVZBW 
04 AO FC A8 00 00288 MOVL 
01 oc AE 01 002CO 47$ CMPL 
OA 12 002C4 BNEQ 
52 D4 AB DO 002C6 MOVL 
51 D8 AB DO O002CA MOVL 
OE 11 BoSc5 BRB 
52 00000000G 00 D0 00200 48$ MOVL 
51 000000006 00 DO 00207 MOVL 
51 DD OO2DE 49$ PUSHL 
05 BB 002E0 PUSHR 
01 DD 002E2 PUSHL 
000210A0 8F ODD 002E4 PUSHL 
000000006 00 05 FB OO2EA CALLS 
0128 31 002F1 BRW 
66 01 90 002F4 50$ MOVB 
56 03 A6 €9 002F7 BLBC 
7. ot goss BRB 
0D 01 A6 E8 0O2FD 51$ BLBS 
00028083 8F DD 0030! PUSHL 
000000006 00 01 FB 00307 CALLS 
66 94 ite 528 CLRB 
13° «11 Boa, BRB 
03 A6 01 90 00312 53$ MOVB 
38 66 €E9 00316 BLBC 
000000006 00 01 DO 00319 548 MOVL 
oF 11 8 ERE 
03 AB 94 55$ CLRB 
000000006 00 04 4 56$ CLRL 
s 11 00328 BRB 
01 A6 1 90 3 D 57$ MOVB 
1E 11 00331 BRB 
0D 66 E€8 00333 58$ BLBS 
00028083 8F DD 00 PUSHL 
000000006 00 01 FB 00 § CALLS 
01 A6 94 00343 59S: CLRB 
69 11 00 re BRB 
02 A6 1 90 00348 608 MOVB 
03 11 0034C BRB 
02 A6 94 OO3S4E 618 CLRB 


g: at Bliss-32 V4.0-742 
DEBUG. SRC JDBGNSET.632;1 


#1, DBGSGET_TEMPMEM 
DBgSGL_LOG_BUF 
DBGSGL_LOGFAB+52, (MSG_DESC) 
DR GSEL _LOGFAB+44, 4(MSG_DESC) 
DBG$GL_LOGFAB+53, (MSG_DESC) 
4(MSG_DESC) 


DBG$GL~LOGFAB+48, 
8 TYPE, #1 

DBGSGL_LOGFAB+8, STS 
DBGSGL_LOGFAB+12, STV 


DBG$GL_LOGRAB+8, STS 
DBG$GL~LOGRAB+12, STV 


STV 
#*M<RO,R2> 


#135328 
#3 DBGSNMAKE_ARG_VECT 


#1, DBG$GB_DEF_OUT 
DBGSGB_DEF _OUT#S, 62$ 


54$ 
DBGS$GB_DEF_OUT+1, 52$ 
#16397T 


#1, DBGSNOUT_INFO 
DBGSGB_DEF _OOT 

#1, DBGSGB_DEF_OUT+3 
DBG$GB_DEF “OUT; 62$ 
# DBGSGL~SCREEN_LOG 


6 
DBGS$GB_DEF _OUT+3 
DBGSGL_SCREEN_LOG 


#1, DBGSGB_DEF_OUT+1 
DEGSGB DEF OUT. 59S 
#163 


#1, DBGSNOUT INFO 
D GSCB_DEF _OOT+1 


#1, DBGS$GB_DEF _OUT+2 
DBGS$GB_DEF _OUT+2 
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| DBGNSET 1Sese -1984 01:58:19 AX-11 Bliss-32 V4.0-742 Page 80 
04-0 Haat 1 04:38:38 DEBUG. SRCJDBGNSET.B32;1 9 a) 
000000006 00 03 
FB O03F3 CALLS #3, DBGSRST_SETSCOPE : 
98 10 af 0 O3tA MOVL RR_INDEX, Rb 3: 2533 
E5 13 003F BEQL : 
| 14 Ar 9F 0040 PUSHAB BAD_SCOPE + 2539 
| 6440 DD 0040 PUSHL (SCOPE _LIST)CROJ : 
| 000000006 00 02 FB 00406 CALLS #2, DBGSNPATHDESC_TO_CS : 
14 AE DD 00400 PUSHL  BAD_SCOPE + 2543 
| 01 DD 00410 PUSHL : 
000281D8 8F DD 90418 PUSHL #164312 : 
000000006 00 95 FB 00418 81$: CALLS #3, DBGSNMAKE_ARG_VECT : 
08 BC 0 dO 0041F Bes: MOVL RO, @MESSAGE_VECT : 
04 00 One 3 83$: MOVL #4, RO 3 2545 
04 00426 RET : 
01 DD 04 7 84$ PUSHL #1 : 2560 
000000006 00 01 FB 00429 CALLS #1, DBGS$SET_SEARCH_LVL : 
50 000000006 09 DO 00430 MOVL §§ DBG$GB_SEARTH PTR, ~RO : 2574 
03 01 63 CF 00437 85$: CASEL (NOUN_NODE), #1, #3 : 2568 
0011 0017 000D 0008 00438 86$: . WORD 873-863. : 
8$-86$, ; 
90$-86$,- : 
89$-86$ : 
60 01 90 00443 87$ MOVB = #1, (RO) : 2574 
OD 11 00446 BRB 91§ : 2568 
60 94 00448 88$: CLRB (RO) : 2579 
09 11 O0044A BRB 91$ : 2502 
01 Ad 01 90 0044C 89$ MOVB #1, 1(RO) + 2584 
03 11 00450 BRB 91§ : 2568 
01 AO 94 00452 90s: CLRB =: 1(RO) : 2589 
08 A3 D5 00455 91$: TSTL  _8(NOUN_NODE) : 2596 
76 13 00458 BEQL 100$ : 
53 08 A3 00 0045A MOVL § 8(NOUN_NODE), NOUN_NODE : 2602 
D7? 11 0045 BRB 85$ : 2565 
63 DD 00460 928 PUSHL  (NOUN_NODE) : 2613 
04 A3 OD O0sbs PUSHL 4 (NOUN NODE) : 2612 
000000006 00 02 FB 0046 CALLS #2, DBGSSRC_SET_SOURCE : 
62 11 0046C BRB 106 + 2060 
08 AC DD 0046E 938: PUSHL MESSAGE_VECT : 2620 
52 DD 00471 PUSHL : 
000000006 00 02 FB 00473 CALLS #2, DBGSEVENT_SEMANTICS : 
04 0047A ET 3 
52 DD 0047B 94$: PUSHL R2 : 2627 
000000006 00 01 FB 0047D CALLS #1, DBGSNEXECUTE_SET_TASK : 
4A 11 00484 BRB 106$ : 
52 0D 90486 95$ PUSHL Re 3 2633 
000000006 00 oi FB 90488 CALLS #1, DBGSSCR_EXECUTE_SETTERM_CMD ; 
50 08 a3 DO 00491 96S: MOVL § 8(NOUN_NODE), LENGTH_NODE > 2649 
000000006 00 63 DO 00495 MOVL (NOUN_RODE), DBGSGL_BFLTTYP : 2651 
000000006 00 $0 80 Bpeee nove (LENGTH_NODE), DBGSGW_DFLTLENG 3 $36 
50 08 iS DO 004A5 97$: MOVL §§ 8(NOUN_NODE), LENGTH_NODE > 2662 
000000006 00 63 DO 004A9 MOVL (NOUN_RODE), DBG$GL_GBLTYP > 2664 
000000006 00 60 8 0480 MOVW § (LENGTH_NODE), DBGS$GW_GBLLNGTH > 2665 
1 1 00487 BRB : 206 
08 ac OD O4B9 988: PUSHL MESSAGE_VECT > 267 
3¢ DD 0048C PUSHL : 
000000006 00 02 FB O004BE CALLS #2, DBGSEVENT_SEMANTICS : 


—__—_—_——- 


‘Voe=960 iesSegct9Ge QU:GH:2  WAEGDE ShissadZat 0524 ape 


11 Q04C B 100$ : 
3 DD te? 99% PUSHL ne ; 2678 

000000006 98 4 409 CALLS) #1, DBGSSCR_EXECUTE_SETWIND_CMD : 
Soe Mab : 3696 


; Routine Size: 1236 bytes, Routine Base: DBGSCODE + 10E5 
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v04- 12-Sep-19 4 03:38:38 DEBUG. SRCIOBGNSET B32 04 ° (8 
5 $33 GLOBAL ROUTINE DBGSNSET_LOG (MESSAGE_VECT) = 
68 69 FUNCTIONAL DESCRIPTION: 
698 Th 


Ss routine closes any log e that is currently open and opens 
n C 


fil 
the file specified by the user in SET LOG “'filespe 


FORMAL PARAMETERS: 


message_vect - The address of a longword to contain the address of a 
message argument vector 


IMPLICIT INPUTS: 
The RMS-set IFI (internal file identifier field) bit is used to 


02 09 00 09 09 098 SII SINS SIOO O 


AL Ab AL Ab -Ab Ab Ab Ab db Ab Ab Ab Ab Ab ebb hh Ah Abed bb hh hh aha 


$ 1 

: 1 

: 1 

H 1 

; 1 

3 1 

; 1 

; 1 

; 1 

; 7 1 

3 1 

: } 

; sibs ; determine if a previous log file is still open. 

; a : dbg$gl_log_buf _ pointer to log filespec buffer 

: are 1 IMPLICIT OUTPUTS: 

; 71 1 none 

Fe 2714 1 

; 2586 2715 1 ! ROUTINE VALUE: 

; 2587 2716 1 

; $ 4 iat 4 } sts$k_severe (4) - the log could not be set to the specified filespec 
ie 3 2119 : sts$k_success (1) - the log file was set to the user specified filespec 
; § 4 2721 1! SIDE EFFECTS: : ra 
; 259 sis¢ 1 any previously open log file is closed and a new log file is opened. 
3; 2594 2725 1 ! Logging is inhibited for the duration of this routine. 

3; 2595 sise 1 f= 

3; 2596 725 (1 

: 2597 2726 3 BEGIN 

3; 2598 2727 

; 2599 2728 2 LOCAL 

; 2600 2729 2 STATUS, 

; 2601 2730 2 OPENED_LOG, 

; 2602 2731 FNS : BYTE, 

3; 2603 $i36 FNA, 

3 2604 273 OLD_NAM_PTR, 

; 2605 sree B_TYPE, 

3 2606 735 TEMP_NAM : REF SNAM_DECL 

> 2607 2736 TEMP"FSE : REF VECTOR £.ByTE. 

; 2608 737 TEMP_FSR : REF VECTOR (,BYTEJ, 

3 2609 rae LOG_TEMP : BYTE; 

3 2610 739 

3; 2611 740 opened_log = FALSE ; 

; ol¢ 741 ; 

: ty rs ! inhibit logging until we can redirect the log file 

: 2615 744 Log temp = .dbg$gb_def_out [out log); 

3 2617 re? dbgSgb def out Lout Log) = FALSE; . 

; 2618 74 ! see if a log file has been previously opened. If so, close it, 
; 619 748 i since it must be CLOSEd befor we can do the new SPARSE. 

3 631 750 If .dbg$gl_logfab Cfab$w_ifi] NEQ 0 

3; 2622 751 THEN 


J 4 
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v04 ae 7 0:99:38 DEBUG. SRC JDBGNSET B32; ~ (3 
623 7 BEGIN 
eee eh cette 
opened_log = TRUE; 
626 755 tha = 7dbeSgl_logtab ffab$t_ tna); 
139 fns = .dbg$gl_logfab [fab$b_fnsJ; 
629 758 status = SCLOSE (FAB = dbg$gl_logfab); 
630 759 IF NOT «Status nc tis 
631 760 THEN 
6 ¢ 761 BEGIN 
6 76 
oe 18? _— MSG_DESC : REF dbg$stg_d 
: s Sc; 
go%e v5 Cae 5 elit Vicente 
msg_desc = et_tempmem(2); 
se38 bu Td error.dese (sg desc): 


-message_vect = dbg$nmake_arg vect 
Tshr$_closeout+dbg_fac_code, 


Fe ams 9_desc. 
-dbg$gl_logfab{fab$l_sts], 
-dbg$gl_logfablfab$l_stvJ); 


RETURN sts$k_severe; 
END; 
! get new NAM block, preserve the original 
temp_nam = dbg$get_memory ((nam$c _bin+3) / %ZUPVAL); 


$Snam_init (nam = .temp aang | 


temp_fse = dbg$get_memory ((nam$c_maxrss+3)/ZUPVAL); 


temp_fsr = dbg$get_memory ((nam$c_maxrss+3)/ZUPVAL); 


Mrororr mn Mrorononns 
ANAT ADSSIPSIIIIG 
DADAM ANI ES rar 

OnOus —“ODONOUS -—o 


$ 
temp_nam nembl-esd = .temp_fse; 
temp_nam [nam$l_rsa] = .temp_fsr; 
temp_nam [nam$b_ess] = nam$c_maxrss; 
cong nee nam$b_rss] = nam$c_maxrss; 
659 dbg Gl_logfab Cfab$l_nam] =  temp_nam; 
660 old_nam_ptr = -dbgSgl lognan; 
rod dbg$gl_Tognam = .temp_nam; 
$68 END; 


! reset the appropriate FAB file process options 


aN aE en eR aN at ae 0 threat cheat hte ily hard tir ty ete fh dy yt eee he ey 
PAA APIPIPIPIPYAININININPINI NI WANA ANAA NAAN NWIA BS BE BEEBE EEE EEE PAWN 


664 

665 

8] 79 dbg$gl_logfab Cfab$v_cif] = 0; 
668 79 dbg$gl_logfab [fab$v_mxv] = 1; 
669 798 dbg$gl_logfab [fab$v_nam] = 0; 
670 799 

671 00 ! Set up file name 

67 Ht 

67 0 IF .dbg$gl_log_buf NEQ 0 

674 80 THEN 

675 804 BEGIN 

67 05 

67 0 P 

678 80 DBG$GL_LOG_BUF : REF VECTOR (,BYTE); 
2679 808 


a 
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V “800 12-80-1382 et et DEBUG. SRC JOBGNSET.832;1 ’ B 
; 2680 09 dbg$gl_logfab pfepst.tne = .dbg$gl_log_buf + 1; ! filename addr starts in 2nd byte 
3 re} 19 dbg$gl_logfab [fab$b_fns] = .dbg$gl_log_buf (0J; ! Ist byte is count 
; 268 big ! Parse the filespec to see if an explicit version number was 
3 2684 81 ' given. If so set the CIF bit, otherwise we must maximize 
3 net Bie ! the version number. 
: 2687 B16 status = SPARSE (FAB = dbg$gl_logfab); 
>; 2688 81 IF NOT .status 
; 2689 818 THEN 
: S691 B20 LOCAL 
; 269 H 1 4 STS, 
: 269 8 ¢ 4 STV, 
3 vee : ? 2 MSG_DESC : REF dbg$stg_desc; 
; O38 se 2 ? msg_desc = dbg$get_tempmem (2); 
; $008 $s ? ! save these because restore_nam will reset them 
: 2700 +134 4 sts = .dbg$gl_logfab [fab$l_sts]; 
; 2701 $s 0 4 stv = .dbg$gl_logfab [fab$l_stvJ;: 
3 4 soe ? build_error_desc (msg_desc); 
we RE fgieveed.te 
; ne ate ? a restore_nam 
: 2708 sear BEGIN 
3; 2709 2838 5 dbg$gl_logfab Cfab$l_fna] = 0; 
3: 2710 2839 5 dbg$gl_logfab Cfab$b_fns] = 0; 
3; 2711 2840 5 gbgsgl_log_buf = 0; 
ane BR = 
> 2714 ope 4 -message_vect = dbg$nmake_arg_vect 
3; 2715 2844 4 (shr$_syntax + dba. fac code. 
3 Siig set? : 1, .msg_desc, .sts, .Stv); 
; 2718 B47 4 RETURN sts$k_severe; 
3 ah 848 4 
5059 $850 ~ 
; 2132 $82) {fF .,,dbasel_lognes Cnam$v_exp_ver] 
; 154 2558 i BEGIN 
3 2725 854 4 dbg$gl_logfab pfepev.ctt = 1; 
; 736 855 4 gbgsgl_togt b Cfab$v_mxv] = 0; 
: $158 839 ; ty 
> 2729 858 dbg$gl_logfab Cfab$v_nam) = 1; ' open by NAM block since __ 
3 ty 323 END; ' we've already parsed the filespec 
: 73e 861 ' now open the new log file 
> 2734 86 status = dbg$nsetup_log (b_type); 
3: 2735 864 IF NOT .status 
; 2736 865 THEN 


dbg$gb_def_out Cout_log] = .log_temp; 
iF orene “log 


! Cleanup the ‘original’ NAM block 


BEGIN 

dbg$rel_memory (.old_nam ptr); 
dbg$rel-memory ( (-dbgSab_ Togfse); 
dbg$rel"memory (.dbg$gb_logfsr); 


dbg$gb_logfsr = .temp_fsr; 
dbgsgb- lostse = ,temp_ “tse; 


! Release the buffer that holds the log file spec. Since this 
i is a counted string we have to adjust the address to free 


| 4 
GNSET 1b-se -1984 01:58:19 AX-11 Bliss-32 V4.0-74 Page 85 

voee Vergep-198e V2:13:0% — UoeauG. SRC IeBeNse T o3207 oe 3 
: 2737 6 BEGIN 

H 138 a9 LOCAL 

3; 2739 868 MSG_DESC : REF dbg$stg_desc, 

: 2740 4 STS, 

3: 2741 0 STV; 

3: 274 71 

3; 274 8 desc = dbg$get_tempmem (2); 

3 274646 7 bu d_error_desc (iisg_desc); 

3 2745 874 i -b_type 

: 2746 875 THEN 

3 2747 a78 4 BEGIN 

3: 2748 4 4 sts = .dbg$gl_logfab [fab$i_sts 

3 2749 76 4 stv = .dbg$gl_logfab [fab$i"stv ; 
: 2750 879 4 END 

; 2751 880 3 ELSE 

; P36 881 4 BEGIN 

; 275 oes 4 sts = .dbg$gl_lograb Crab$l_sts]; 
3 2754 883 4 stv = -dbg$gl- lLograb Crab$l “stvl: 
3; 2755 884 END; 

: 2756 2885 

3; 2757 2886 IF .opened_log 

: 2758 rt THEN 

3; 2759 888 4 restore_nam 

; $760 2889 3 ELSE 

3; 2761 890 4 BEGI 

; P66 891 4 Sbosgl.. logfab Cfab$l_fna] = 0; 

3; 276 44 4 dbg$gi_ ponte. tabsb_ fns] = 0; 

3 2764 2893 4 dbg$gl"- log 

3 2765 2894 4 gbgsal. ~{ooren. Ltabsy nam) = 0; 

3; 2766 895 

3: 2767 896 

3; 2768 2897 -message_vect = dbgSnaake. arg_vect 

3 2769 898 (shr$_opénout+dbg_ fac code, 3, 
: 2770 899 -msg_desc, .sts, .Stv); 
3; 2771 900 

3: 277 901 ; RETURN sts$k_severe; 

3; 277 on6 

3: 2774 290 END; 

3; 2775 904 

3; 2776 st ! restore logging status and free temp storage 


MO OCOwOufwito— 


~~ 
OOOOOOCOOOVOODO 
ROMO tO 


Be Se Se Se Se Be Oe Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Oe Se Be Se Se Se SHS SH Se Se Oe Se Se Se Oe Se Se Se Se Se Se Oe Se Se Bees Se Be ae 
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mM 4 
| DBGNSET 16-Sep-1984 01:58:19 AX=-11 Bliss=32 V4.0-74 Page 86 
Mirena 1o-808- 1382 04:38:38 DEBUG. SRC IDBGNSET B32; . (8 
: 279% 923 
3 £99 2 2 IF . fms NEQ 0 
: r38 G § dbg$rel_memory (.fna-1); 
: 798 9 END; 
: e? 9 8 
; 2800 9 RETURN sts$k_success; 
> 2801 930 
: 5802 5931 END; 
.EXTRN SYSSCLOSE, SYSSPARSE 
OFFC 00000 ENTRY DBGSNSET_ LOG, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 2695 
SE 18 C2 0000 SUBL2 #24; : 
5A ps 0000 CLRL OPENED_LOG > 2740 
5B 000000006 00 90 00007 MOVB DBG$GB™ “ber Our. LOG_TEMP + 3744 
000000006 00 94 O000E CLRB DBGS$GB~DEF “OUT + 2745 
000000006 00 85 soot Ist DaGSGL- ~LOGFAB#2 ; 2750 
00c7 31 O00IC BRU CSS : | 
5A 01 DO OOO1F 1S: MOVL #1, OPENED_LOG : 2754 
57 000000006 00 b0 000 2 MOVL DBESGL. LOGFABS44, FNA : 2755 
6E 000000006 00 90 900 MOVE DBGSGL“LOGFAB+52. FNS : 2756 
000000006 00 9F 00030 PUSHAB DBG$GL~LO : 2758 
aot: 2 Bob ganes GAMES ED SCLOS : 
45 59 € 09040 LBS TATUS, 4$ t 2759 
02 DD 0004 PUSHL i : 2766 
000000006 00 01 F 00045 CALLS DBGSGET TEMPMEM : | 
000000006 99 08 0046 Ist baéseL 06 6_6uF ; 2767 
60 000000006 00 98 boos MOVZBW DBGSGL_LOGFAB+52, (MSG_DESC) : 
04 Ad 000000006 00 0: 00058 MOVL BGS6L - LOGFAB+44. 4(MSG_DESC) 
60 000000006 00 98 00065 2s: MOVZBW DBGSGL_LOGFAB+53, (MSG_DESC) : 
04 AO 000000006 00 p 006¢ MOVL DBGSGL-LOGFAB+48. 4(MSG_DESC) : 
7E 000000006 00 D 00074 3$ MOVO $DBGSGL~LOGFAB+8, -(SP) : 2771 
0 DD 00078 PUSHL  MSG_DESC : 2770 
4 DD 0007D PUSHL : 2769 
00021058 ost : 007F PUSHL #135256 : 
18 DD itt 4$: PUSHL #24 : 2780 
000000006 90 gi FB OOBA CALLS #1, Decscey MEMORY 
0060 8F 00 6E 00 i 0094 MOVES RO, | (SP)> #0, #96, (TEMP_NAM) 2781 
66 6002 F BO 0009C MOV 424578 (TEMP_NAM) ; 
E 4 F A OA1 MOVZBL #64, P 3; 2782 
000000006 00 1 FB OAS CALLS #1, DBGSGET_MEMORY : 
08 AE 0 p OAC MOVL RO; TEMP FSE : 
7 40 BF OA 08 MOVZBL } 2 : 2783 
oy 00 } af ie CALLS a, “D6 GET Emory 
C Ab 08 AE DO 000BF MOVL TEP. FSET Ty rene _NAM) > 2784 


<o 
om 


Se ae eae es ig Page 87 
pacar: N 4 58: AX-11 Bliss-32 V4.0-74 (i 
1e8eb- 1984 foit7se1 — EDeeuG. SRcToBGNse T 932, ae 

DBGNSET ' 

7 R,_4(TEMP_NAM) : ote 

ve i A6 04 AE 00 pce at Hie Toctemp NAM) : 57 ¢ 
" i Be 900C9 *_2(TEMP_RAM) : 5788. 
A Ab MNEGB #1, 2 FAB+40 ; 
ff § D6 00051 MOVE FES NAR, -baGSGL LOGE PTR s $78) | 
000000006 09 000000006 90 D6 oo8 Rove TEMP RAR, DBGECL LOGNAR : 796 | 
44 4444: 09 ; i 066 5$ Bises #5. Detect tote ABes : 5798 

60 000006 00 OOED BISB2 #2, DBGSGL_ GFAB+? : 
$00008008. §8 See g F ; 2002 
OOOOS FF eonnnsons 9 3 OOF ROVE aes 3 = 
16D 0104 BRW , DBGSGL_LOGFAB+44 : 5810 
Sooos8b0e Oo am i i olor Rove (RO) DBGSEL COGFABSS¢ ; 2816 

900000006 00 | rncog $9 30 Rotor PUSHAB DAGSGL LOGFAB 

006 00 Q1 FB OOr1¢ CALLS AT, SY _ 

000000 59 28 e9 001 é BLBC STATUS, 7$ : pat 
03 BRid : 
1 1 00129 : | 
"OR bb O019¢ 78: ne 
0006 00 OT FB OO1ZE ROVE, RO! BS : 2829, 
00000 = 9 0 001 MOVL  DBGSGL_COGFAB+8, STS : 9830! 
$$ 00000006 00 0 00138 pout -Peadeh ob Rer Bee, STS : 3830 
$4 000000006 00 DO 0013F QvL = DBGS6L_LOGFABs ; 
000000006 00 D5 00146 Ist g6S6L_L06_ ; 
tO) $8 bolce MOVZBW DBGSGL_LOGFAB+S2, (MSG DESC) 
R3 900000006 90 0 O01$6 MOVL  DBGSGLLOGFAB+44, 4(MSG_DES 
a ae ROVZBW DBGSGL_LOGFAB+S3, (MSG DESC), Bone4 
Rd 000000008 00 DO 00166» «MOVE DacScr =tOGFABSAB. SCASC Bese E og3s 
A2 000000006 00 D0 00166 BS  OPENED“LOG, 108 
rae a Hoon) BR 7s ; 2834 
AM ; 
4 56 DD 00174 108: chs Hi” BBGSREL_MEMORY : 

006 00 01 FB 00176 PUSHL TEMP_FSR 
000000 04 AE DD 0170 CALLS #1, DBBGSREL_MEMORY : 
000000006 00 : O0187 PUSHL aaa 
ce a ee ee | 
000000006 00 38 bs 00198 move DSGSGLCOGNAN, DBGSGL LOGFABS4O 
woe gown FEE ae Fe bnatts : 

$GL_ : 

SSS BRB Ry mabe ries : 
ee OC OM Fe tole CALLS. #1, BAGSNSETUP_LOG 
0000. ¢F gr ER aice LBS’ ERR, 168 

: ¢ Po ggice CALLS #1, DBGSGET_TEMPMEN 

006 00 FB OOICE TSTL  DBGSGL_LOG_6uUF 3 
sesees 000000006 00 D5 001D a: ; 

) 9B Solbe MOVIBW DBGSGL_LOGFABSS2, (MSG DESC), : 
AO g00000006 ? p die HOV. DBESEL-LOGFABS4a, 4cMSG, DESC 

“om ONO F O1EC BRB 53, (MSG_DESC) 

WW DBGSGL_LOGFAB+S3, (MSG_ 
60 000000006 00 98 OO'EE 118: MOVZB 


-_—- 


pa 


oni 


04 wong ° %: 


AQ 
01 
51 09 
37 00 


000000006 00 


000210F8 


= = 
FROOMNDCO—UOONDOOOO— FO 
ONE EOOCOND——O—-SOMooCOMOo 


50 000000006 00 

OE 34 = AO 

000000006 00 Os 
00000000G 00 i] 
000000006 00 01 
10 AE 

0000v CF 01 

59 50 

03 59 

0128 

02 

000000006 00 01 
55 50 

000000006 9 

65 000000006 00 

04 AS 000000006 +4 

65 000000006 00 

04 AS 000000006 00 

01 10 16 

52 000000006 6 

54 000000006 00 

52 4 94445445 0 

54 000000006 00 

03 a 

007? 

000000006 00 01 
04 AE 

000000006 00 01 
08 AE 

000000006 00 01 


B 5 
16-Se 
14-Se 
dO gee 
Di OO1FD 163: 
12 00 6} 138: 
DO 00 
DO OO2Z0A 
11 00211 
dO 8 13 148: 
dO 1A 
DD 00221 15$: 
BB 00 
D 00 
1 00 
0 O022A 168: 
11 00231 
D4 00233 178: 
94 00 4 
D4 00235F 
DD 00245 18$: 
BB 00247 
DD 00249 
Bo 00248 
1 00251 
DO 00254 19$: 
4 00258 
8 0025F 
8A 00266 
88 3 6D 20$: 
SF 00274 218: 
FB 00277 
DO 0027C 
R 0027F 
1 00 Hf 
DD 00285 22$: 
4) 00287 
DO 0028E 
b 00291 
13 00297 
9B 00299 
DO 002A0 
11 8 A8 
9B OO2AA 238: 
DO 00281 
D1 00289 24$: 
is 02BD 
DO O02BF 
DO 002C6 
11 002CD 
DO OO2CF 25$: 
DO 00206 
fe 0200 26$: 
1 002E 
DD OO2E3 27%: 
FB 002E 
dD 3 EC 
FB EF 
DD 00 Fé 
FB O02F 


Sg} 08h 


AX-11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGNSET.B32; 1 


DBGSGL_LOGFAB+48, 4(MSG_DESC) 
TYPE_B, #1 

DBGSGL_LOGFAB+8, STS 

DBGSGL LOGE ABY12, STV 


DEGSGL_LOGRAB+8, STS 
DBGSGL-LOGRAB+12, STV 


STV 
5 nnO RS 


33$ 

L0G_TEMP, DBG$GB_DEF _OUT 

DBGS$GL_LOGFAB+44 

DBG$GL~LOGFAB+52 

DBGSGL~LOG_BUF 

#°M<R2,R5> 

#135416 

DBGSGL_LOGNAM, RO 

(RO) 

#2, DBGSGL_LOGFAB+7 

#2, DBGSGL-LOGFAB+4 

#1 yPBCSGL-LOGEAB+? 

#7, DBGSNSETUP_LOG 
TATUS 


STATUS, 22$ 
5$ 


@ MOW wn 
oOo Pororo — 
je 


#2 

a. DBGSGET_TEMPMEM 
pegsci_COG_BuF 

23$ 


DBGSGL_LOGFAB+52, (MSG_DE 
DBGSGL-LOGFAB+44, 4(MSG_D 


Sc 

ES 
DBGS$GL_LOGFAB+53, (MSG_DESC 
‘eit. LOGFAB+48, 4(MSG_DESC) 


) 
C) 
) 
C 


DBGSGL_LOGFAB+8, STS 
DBGSGL“LOGFAB+1¢, STV 


DBGSGL_LOGRAB+8, STS 
DBGSGL~LOGRAB+12, STV 
QPENED=LOG, 27$ 
TEMP_NAM 

AF BBGSREL_MEMORY 
#1, BBGSREL_MEMORY 
TEMP FS 

#1, BBGSREL_MEMORY 


roe ff 


re 
i 


<9 
ow 


Bee BeBe Oe Oe Be Ge Be Be Se Se Se Ge Se Ge Se Se Se Ge Be Se Se Se Se Se Se Se Oe Be Se Oe Se Se Se Oe Se Se Se Oe Oe Se Se Oe Se Oe Se Bee OHO Oe Oe Oe Oe Be ee 


000000006 


14 


000000006 
000000006 


60 000000006 
04 Ad 000006 


000 
60 000000006 
04 Ad 000 
000000006 00 


000000006 00 


000210A0 
eewere 


000000006 


000000006 


0 
4 
0 
000000006 
000000006 00 
0 
0 
0 


9 000000006 
0 04 
0 08 


000000006 
000000006 
000000006 


FF 


ooo 
ooo 
ooo 
ooo 
oO 
oO 
oOo 
oO 
i>) 
OOF OSS POQOOCOCOM DOW OO00 UID FP QDOO00-" DOOM10 F OOO MOVU™ 
——NPMMM——O—-O- OK D LOVMWUIS OOO VOMMMoO"00—0—]V0— MNwWwM JO@o 


000000006 00 
50 


; Routine Size: 1023 bytes, Routine Base: DBGSCODE 


1 
1 
2 en 
DO 00309 
3 0314 
031 
Be 
BB 
; : 
EB 0338 
aa 
ihe 
13 0034A 
3 
11 00 58 
98 a0 864 
DO 00364 
4 0036C 
1 poe 
90 ee 
11 0037A 
D4 0037C 
sas 
BH 
DD 00397 
3 Hs 
FB OO3A1 
DO 003A8 
DO O03AC 
04 OOSAF 
90 00380 
E9 00387 
DD O03BA 
8 Be 
FB 003C9 
ane 
ine 
DO OOSE 
95 OO3ED 
13 OOSEF 
re 
d0 Beare 
04 OOSFE 
1 


a 


28$: 
298: 
30$: 


w 
— 
bad 


32$: 


rw 


WIG 
PM 


35$: 


36$: 


71 
:2 
0 


OLD™ 


DBCSEL COGNAM becsét LOGFAB+40 


, DBG$GL_LOG 


G 
#2. TYE Be LOGF AB+4 
#1, BaGSNSETUP. LOG 
DBGSGET TEMPMEM 
i tt 6_BuF 


DBGSGL_LOGFAB+52, (MSG_DE 
peesél_ LOGFAB+44, 4( 


DBGSGL_LOGFAB+53, ( 
DBGSCL LOSFABOSS. 6 


7”? 


1 
LOG_TEMP, DBGSGB_DEF_oUT 


DBGSGL_LOGF AB+44 
DBG G$GL ob Der ABooe 


ae i, besser-t0 “[OGraB+7 
MSG_ pest 

#135328 

#2. DBGSNMAKE ARG_VECT 
RO, OnE SSAGE_VE VEC 


LOG Ten, <bbgscs _DEF _OUT 
OLD LWARY 6$ ~ 


Ms 
gDBCsREL MEMORY 
Daésce $GB_LOGFSE 


~1(FNA) 
#1, RO 


9 AX-11 Bliss-32 V4.0-74 
1 DEBUG. SRC JDBGNSET .832; 


LDL anak PTR, DBGSGL_LOGNAM 
M-PTR’ 


D5 
16-Sep-1984 01:58:19 VAX=11 BLiss-32 vs.0-7% — 
opm t3ee 95:38:33 SRCID pee a 


14-Sep-19 DEBUG. DBGNSET.B3 
; 2804 9 ¢ 1 ROUTINE DBGSNSETUP_LOG (BLOCK_TYPE) = 
; 2805 Q 1 l4¢ 
: B08 934 1 ! FUNCTIONAL DESCRIPTION: ; 
3 9d 4 5 : This routine creates and opens the log file. 
; 2809 9 5 1 ! FORMAL PARAMETERS: 
3; 2810 938 1! 
; 2811 939 1! block type - indicates whether error to report is for 
: Sig 940 1! FAB ( = 1) or RAB ( = 2) 
; 28) 1 1! 
> 2814 942 1 ! IMPLICIT INPUTS: 
>; 2815 9435 1! 
3 Sig are : } dbg$gl_log_buf - pointer to log filespec buffer 
; 2818 946 1! IMPLICIT OUTPUTS: 
3 530 ot ; } The resultant LOG file-spec as resolved by RMS 
3; 2821 949 1 ! ROUTINE VALUE: ; 
; $e5¢ suet : Returns the RMS status code if there's an error, otherwise returns TRUE 
3; 2824 $326 1 ! SIDE EFFECTS: — i 
3; 2825 953 1! The log file is created and a RAB connected to it. 
: 2826 954 1 I= 
; 2827 2955 1 
>; 2828 2956 2 BEGIN 
3; 2829 2957 2 
>; 2830 2958 LOCAL 
>; 2831 959 STATUS; 
3; 2832 960 
; 2833 961 DBG$GL_LOG_BUF : REF VECTOR C,BYTE); 
; 2834 sock ; 
; 2835 96 ! See if a log file is already open 
; 2836 2964 Be 
3; 2837 2965 IF .dbg$gl_logfab Cfab$Sw_ifi] NEQ 0 
; 2838 2966 THEN 
3; 2839 2967 RETURN sts$k_success; 
3; 2840 968 
3: 2841 969 -block_ type = 1; 
; 3842 970 status = SCREATE(FAB = dbg$gl_logfab); 
: 284 2971 
3 2844 34k IF NOT .status 
> 2845 297 T 
3; 2846 297% RETURN (.status) ; 
; ae 3h dbg$gi_l b b$l_fab] = dbg$gl_logfab 
3 _lograb Crab$l_fab] = dbg$gl_logfab; 
3: 2849 399 .b ock=type = gr 
; 330 978 Status = SCONNECT (RAB = dbg$gl_lograb); 
3 sare 980 IF NOT .status 
; $82 981 THEN 
3; 2854 98 RETURN (.status) ; 
3; 2855 98 
3 528 84 é ; 
$ eH 985 ! Eventually put out the title Line here 
; 3859 989 RETURN true; 
; 2860 988 


y 


<o 
ow 


5 
“DBGNSET 1b-sep-1986 
voe= 12-8081 38e § 


; 2861 2989 «1 END; ! END OF DBGSNSET_UP_LOG 


2:58:19 AX-11 Bliss-32 V4.0-74 Page 91 
+78: 5} DEBUG. SRCIDBGNSET. B32 04 ° (6) 


~EXTRN SYSSCREATE, SYSSCONNECT 
0004 00000 DBGSNSETUP_LOG: 
.WORD 


Save R2 : 2932 

52 000000096 00 9E 0000 MOVAB  DBGSGL_LOGFAB, R2 F 
02 A2 B85 0000 TSTW  DBGSGL“LOGFAB+2 + 2965 

B 12 0000C BNEQ ='1$ : 
046 BC 1 D 90005 MOVL #1, @BLOCK_TYPE + 2969 
2 dd 0001 PUSHL  R2 + 2970 

000000006 00 gi FB 00014 CALLS #1, SYSSCREATE : 
1E 0 E 0018 BLBC. STATUS, 2$ : 2972 
000000006 00 62 i OO01E MOVAB decscl to LOGFAB DBG$GL_LOGRAB+60 : 2976 
04 BC 02 DO 000 MOVL TYPE : 2977 
000000006 00 9F 00029 PUSHAB DBGSGL OO GRAB : 2978 

000000006 00 01 FB 0002F CALLS SYSSCONNECT : 
03 0 €9 000 BLBC STATO S, 2$ + 2980 
50 01 DO 00039 1s: MOVL ‘ : 2987, 
04 0003C 2$: RET > 2989 


; Routine Size: 61 bytes, Routine Base: DBGSCODE + 1988 


BeBe Be ee Bee Oe Ge Be Oe BeBe Oe Oe BeBe SHO Se Se SH Se SHB Se Be Be Se Se Se Se we Se Se HSH Se Oe Oe Se Oe Oe Oe Oe Oe Se Se Se Se SH Se ee OH ee Oe Be ae 


| 
| 
| 


: 


, % 
| DBGNSET 16-Sep-1984 01:58:19 AX-11 Bliss-32 V4.0-74 Page 92 
V0e= eageea ibe PbiF3) — eaMe dS Sk isse se vs. 0506 oe 35 
: 2863 990 1 ROUTINE DUMMY(X): NOVALUE = 
3 2864 991 1! 
|; 2865 992 1 | FUNCTION 
3 94) 993 1! This is a do=-nothing routine that is called from within DBGSNPARSE_SET 
: See 83¢ : } in order to foil an incorrect BLISS compiler optimization. 
> 2869 BEGIN 
; 2870 399 g 0 
: 2871 998 «(1 END; 
0000 00000 DUMMY: .WORD Save nothing : 2990 
04 00002 RET 3; 2998 
; Routine Size: 3 bytes, Routine Base: DBGSCODE + 19F5 
3; 287 9.444 1 END ! End of module 
; 287 000 0 ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; DBG$GLOBAL 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; DBGSPLIT 865 NOVEC, *NOWRT. RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSOWN 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; DBGSCODE 6648 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; Library Statistics 
: ececce -- Sy mbols -------- Pages Processing 
3 File Total idaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 62 0 1000 00:01.9 
> 7$255$DUA28: (DEBUG. OBJ )STRUCDEF 432: 1 : 0 9 7 00:00.1 
: 7$255$DUA28: (DEBUG.OBJ JDBGLIB.L 32:1 154 48 97 00:02.0 
3 “$255$DUA 8: CDEBUG.OBJJDSTRECRDS.L32;1 
: 418 13 3 31 00:00. 
3 “$53 5SDUAgS : (DEBUG. OBJ JDBGMSG. L3gi 1 386 17 4 $$ 00:00. 
; ~$255$DUA28 : (DEBUG. 0BJ JDBGGEN.L32;1 150 13 8 1 00:00. 


<o | 
om 


Be Pee Oe Oe Oe BH Oe Oe Oe Oe Se Be Se Se Se SH Se Se SHH Se Se Be Be SESH Oe oe Oe BH Os Be Be SESH Oe SH Oe HSH Se OHS SH Se Hs Se Oe Oe Be Oe BH Oe BH ee 


; Size: 6648 oon + 881 data bytes 
Run Time: 01:54.5 

Elapsed Time: 05:45.4 

Lines/CPU Min: 1571 

Lexemes/CPU-Min: 12554 

peneey Used: 1089 pages 

Compila 


= 


| 

3 COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:DBGNSET/OBJ=OBJ$:DBGNSET MSRC$:DBGNSET/UPDATE=(ENH$:DBGNSET) 
tion Complete 

| 


<9 
om 


CORPORATION 
PROPRIETARY 


EQUIPMENT 
NTIAL .AND 


AH-BT13A-SE 
VAX/VMS V4.0 


0088 


EQUIPMENT CORPORATION 
NTIAL- AND PROPRIETARY | 


AH-BT13A-SE 
VAX/VMS V4.0 


008 CONFIDE 


